xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.fortran/omp_cond1.f (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210) 
1*404b540aSrobertC Test conditional compilation in fixed form if -fopenmp
2*404b540aSrobert! { dg-options "-fopenmp" }
3*404b540aSrobert   10 foo = 2
4*404b540aSrobert     &56
5*404b540aSrobert      if (foo.ne.256) call abort
6*404b540aSrobert      bar = 26
7*404b540aSrobert!$2 0 ba
8*404b540aSrobertc$   +r = 42
9*404b540aSrobert      !$ bar = 62
10*404b540aSrobert!$    bar = bar + 1
11*404b540aSrobert      if (bar.ne.43) call abort
12*404b540aSrobert      baz = bar
13*404b540aSrobert*$   0baz = 5
14*404b540aSrobertC$   +12! Comment
15*404b540aSrobertc$   !4
16*404b540aSrobert!$   +!Another comment
17*404b540aSrobert*$   &2
18*404b540aSrobert!$ X  baz = 0 ! Not valid OpenMP conditional compilation lines
19*404b540aSrobert! $   baz = 1
20*404b540aSrobertc$ 10&baz = 2
21*404b540aSrobert      if (baz.ne.51242) call abort
22*404b540aSrobert      end
23