libgomp/testsuite/libgomp.fortran/omp_cond3.F90

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