Imported gcc-4.4.3

[msp430-gcc.git] / libgomp / testsuite / libgomp.fortran / tabs2.f

diff --git a/libgomp/testsuite/libgomp.fortran/tabs2.f b/libgomp/testsuite/libgomp.fortran/tabs2.f
new file mode 100644 (file)
index 0000000..7aed549
--- /dev/null
+++ b/libgomp/testsuite/libgomp.fortran/tabs2.f
@@ -0,0 +1,13 @@
+! { dg-options "-ffixed-form" }
+      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