2010-01-04 H.J. Lu <hongjiu.lu@intel.com>
PR libgomp/42602
* libgomp.fortran/recursion1.f90 (sub): Make 's' atomic.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155615
138bc75d-0d04-0410-961f-
82ee72b054a4
+2010-01-04 H.J. Lu <hongjiu.lu@intel.com>
+
+ PR libgomp/42602
+ * libgomp.fortran/recursion1.f90 (sub): Make 's' atomic.
+
2010-01-03 Richard Guenther <rguenther@suse.de>
* testsuite/libgomp.fortran/recursion1.f90: New testcase.
2010-01-03 Richard Guenther <rguenther@suse.de>
* testsuite/libgomp.fortran/recursion1.f90: New testcase.
subroutine sub (n)
integer :: n
subroutine sub (n)
integer :: n
s = s + n
print '(A,i3)',"loop =",n
end subroutine
s = s + n
print '(A,i3)',"loop =",n
end subroutine