TEST

Version:1.2.7

example/Makefile

@@ -1,4 +1,4 @@
-IRPF90 = irpf90  #-a -d
+IRPF90 = irpf90  -a -d
 FC     = gfortran
 FCFLAGS= -O2
 

example/irp_example1.irp.f

@@ -1,14 +1,10 @@
 program irp_example1
-  integer :: x(w)
+  integer :: x(W)
   BEGIN_SHELL [ /bin/bash ]
     echo print *, \'Compiled by `whoami` on `date`\'
     echo print *, \'$FC $FCFLAGS\'
     echo print *, \'$IRPF90\'
   END_SHELL
-  call run
-
-end
-
-subroutine run
-  print *, 't = ', t
+! print *, 't = ', t
+  print *,  u2
 end

example/uvwt.irp.f

@@ -8,7 +8,7 @@ END_PROVIDER
 
 BEGIN_PROVIDER [ integer, v ]
   v = u2+w+2
-!END_PROVIDER
+END_PROVIDER
 
 BEGIN_PROVIDER [ integer, u1 ]
   integer :: fu

src/util.py

@@ -173,16 +173,10 @@ def parallel_loop(f,source):
     w.close()
     os._exit(0)
   
-  OK = True
-  for i in xrange(1,NTHREADS):
-    if os.waitpid(pidlist[i],0)[1] != 0:
-      OK = False
-  if not OK:
-    sys.exit(1)
-
   for i in xrange(1,NTHREADS):
     result += pickle.load(r[i])
     r[i].close()
+    os.waitpid(pidlist[i],0)[1] 
 
   return result
 

src/version.py

@@ -1 +1 @@
-version = "1.2.6"
+version = "1.2.7"