libgomp/testsuite/libgomp.fortran/omp_cond1.f

   1 C Test conditional compilation in fixed form if -fopenmp
   2 ! { dg-options "-fopenmp" }
   3    10 foo = 2
   4      &56
   5       if (foo.ne.256) call abort
   6       bar = 26
   7 !$2 0 ba
   8 c$   +r = 42
   9       !$ bar = 62
  10 !$    bar = bar + 1
  11       if (bar.ne.43) call abort
  12       baz = bar
  13 *$   0baz = 5
  14 C$   +12! Comment
  15 c$   !4
  16 !$   +!Another comment
  17 *$   &2
  18 !$ X  baz = 0 ! Not valid OpenMP conditional compilation lines
  19 ! $   baz = 1
  20 c$ 10&baz = 2
  21       if (baz.ne.51242) call abort
  22       end