Imported gcc-4.4.3

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

diff --git a/libgomp/testsuite/libgomp.fortran/tabs1.f90 b/libgomp/testsuite/libgomp.fortran/tabs1.f90
new file mode 100644 (file)
index 0000000..4f3d4f5
--- /dev/null
+++ b/libgomp/testsuite/libgomp.fortran/tabs1.f90
@@ -0,0 +1,12 @@
+       if (b().ne.2) call abort
+contains
+subroutine a
+!$omp parallel
+       !$omp   end     parallel
+       end subroutine a
+function b()
+       integer :: b
+       b = 1
+       !$      b = 2
+end function b
+       end