diff libgomp/testsuite/libgomp.fortran/omp_cond3.F90 @ 0:a06113de4d67

first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children 04ced10e8804
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libgomp/testsuite/libgomp.fortran/omp_cond3.F90	Fri Jul 17 14:47:48 2009 +0900
@@ -0,0 +1,24 @@
+! Test conditional compilation in free form if -fopenmp
+! { dg-options "-fopenmp" }
+   10 foo = 2&
+  &56
+  if (foo.ne.256) call abort
+  bar = 26
+   !$  20 ba&
+!$   &r = 4&
+  !$2
+      !$bar = 62
+   !$ bar = bar + 2
+#ifdef _OPENMP
+bar = bar - 1
+#endif
+  if (bar.ne.43) call abort
+      baz = bar
+!$ 30 baz = 5&     ! Comment
+!$12  &  
+  !$ + 2
+!$X baz = 0 ! Not valid OpenMP conditional compilation lines
+! $   baz = 1
+baz = baz + 1 !$ baz = 2
+      if (baz.ne.515) call abort
+      end