Imported gcc-4.4.3

[msp430-gcc.git] / libgomp / testsuite / libgomp.fortran / pr25219.f90

diff --git a/libgomp/testsuite/libgomp.fortran/pr25219.f90 b/libgomp/testsuite/libgomp.fortran/pr25219.f90
new file mode 100644 (file)
index 0000000..7fe1a53
--- /dev/null
+++ b/libgomp/testsuite/libgomp.fortran/pr25219.f90
@@ -0,0 +1,15 @@
+! PR fortran/25219
+
+  implicit none
+  save
+  integer :: i, k
+  k = 3
+!$omp parallel
+!$omp do lastprivate (k)
+  do i = 1, 100
+    k = i
+  end do
+!$omp end do
+!$omp end parallel
+  if (k .ne. 100) call abort
+end