X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=libgomp%2Ftestsuite%2Flibgomp.fortran%2Fomp_cond1.f;fp=libgomp%2Ftestsuite%2Flibgomp.fortran%2Fomp_cond1.f;h=b557d90800354fc252d0aa8165c39aff27f248ba;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=0000000000000000000000000000000000000000;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git

diff --git a/libgomp/testsuite/libgomp.fortran/omp_cond1.f b/libgomp/testsuite/libgomp.fortran/omp_cond1.f
new file mode 100644
index 00000000..b557d908
--- /dev/null
+++ b/libgomp/testsuite/libgomp.fortran/omp_cond1.f
@@ -0,0 +1,22 @@
+C Test conditional compilation in fixed form if -fopenmp
+! { dg-options "-fopenmp" }
+   10 foo = 2
+     &56
+      if (foo.ne.256) call abort
+      bar = 26
+!$2 0 ba
+c$   +r = 42
+      !$ bar = 62
+!$    bar = bar + 1
+      if (bar.ne.43) call abort
+      baz = bar
+*$   0baz = 5
+C$   +12! Comment
+c$   !4
+!$   +!Another comment
+*$   &2
+!$ X  baz = 0 ! Not valid OpenMP conditional compilation lines
+! $   baz = 1
+c$ 10&baz = 2
+      if (baz.ne.51242) call abort
+      end