Forgot file

2014-01-03 16:22:24 +01:00 · 2014-01-03 16:22:24 +01:00 · 3ce56dcdea
parent b5499b8a2f
commit 3ce56dcdea
3 changed files with 23 additions and 0 deletions
--- a/example/input/input.irp.f
+++ b/example/input/input.irp.f
@ -0,0 +1,22 @@
+ BEGIN_PROVIDER [ integer, d1 ]
+&BEGIN_PROVIDER [ integer, d2 ]
+&BEGIN_PROVIDER [ integer, d3 ]
+&BEGIN_PROVIDER [ integer, d4 ]
+&BEGIN_PROVIDER [ integer, d5 ]
+
+ print *,  'd1'
+ read(*,*) d1
+
+ BEGIN_TEMPLATE
+  print *,  '$X'
+  read(*,*) $X
+  ASSERT ( $X > $Y )
+
+  SUBST [ X, Y ]
+   d2; d1;;
+   d3; d2;;
+   d4; d3;;
+   d5; d4;;
+ END_TEMPLATE
+END_PROVIDER
+
--- a/example/uvwt.irp.f
+++ b/example/uvwt.irp.f
@ -20,6 +20,7 @@ BEGIN_PROVIDER [ integer, u2 ]
  integer :: fu
 ! u2 = fu(d3,d4)
  u2 = d3+d4+1
+  ASSERT (u2 > d3)
 END_PROVIDER

 integer function fu(x,y)
--- a/man/man1/irpf90.1.gz
+++ b/man/man1/irpf90.1.gz