Make 's' atomic

2010-01-04  H.J. Lu  <hongjiu.lu@intel.com>

	PR libgomp/42602
	* libgomp.fortran/recursion1.f90 (sub): Make 's' atomic.

From-SVN: r155615

libgomp/ChangeLog

+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.

libgomp/testsuite/libgomp.fortran/recursion1.f90

@@ -20,6 +20,7 @@ contains
 
   subroutine sub (n)
     integer :: n
+!$omp atomic
     s = s + n
     print '(A,i3)',"loop =",n
   end subroutine