libgomp/testsuite/libgomp.fortran/omp_cond4.F90

   1 ! Test conditional compilation in free form if -fno-openmp
   2 ! { dg-options "-fno-openmp" }
   3    10 foo = 2&
   4   &56
   5   if (foo.ne.256) call abort
   6   bar = 26
   7    !$  20 ba&
   8 !$   &r = 4&
   9   !$2
  10       !$bar = 62
  11    !$ bar = bar + 2
  12 #ifdef _OPENMP
  13 bar = bar - 1
  14 #endif
  15   if (bar.ne.26) call abort
  16       baz = bar
  17 !$ 30 baz = 5&     ! Comment
  18 !$12  &
  19   !$ + 2
  20 !$X baz = 0 ! Not valid OpenMP conditional compilation lines
  21 ! $   baz = 1
  22 baz = baz + 1 !$ baz = 2
  23       if (baz.ne.27) call abort
  24       end