c Test conditional compilation in fixed form if -fno-openmp | |
! { dg-options "-fno-openmp" } | |
10 foo = 2 | |
&56 | |
if (foo.ne.256) call abort | |
bar = 26 | |
!$2 0 ba | |
c$ +r = 42 | |
!$ bar = 62 | |
!$ bar = bar + 1 | |
if (bar.ne.26) call abort | |
baz = bar | |
*$ 0baz = 5 | |
C$ +12! Comment | |
c$ !4 | |
!$ +!Another comment | |
*$ &2 | |
!$ X baz = 0 ! Not valid OpenMP conditional compilation lines | |
! $ baz = 1 | |
c$ 10&baz = 2 | |
if (baz.ne.26) call abort | |
end |