summaryrefslogtreecommitdiff
path: root/libgomp/testsuite/libgomp.fortran/recursion1.f90
diff options
context:
space:
mode:
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran/recursion1.f90')
-rw-r--r--libgomp/testsuite/libgomp.fortran/recursion1.f901
1 files changed, 1 insertions, 0 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/recursion1.f90 b/libgomp/testsuite/libgomp.fortran/recursion1.f90
index 0b7b2715fdd..35cb8786e09 100644
--- a/libgomp/testsuite/libgomp.fortran/recursion1.f90
+++ b/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