Retro68/gcc/libgomp/testsuite/libgomp.fortran/omp_cond1.f

C Test conditional compilation in fixed form if -fopenmp
   10 foo = 2
     &56
      if (foo.ne.256) STOP 1
      bar = 26
!$2 0 ba
c$   +r = 42
      !$ bar = 62
!$    bar = bar + 1
      if (bar.ne.43) STOP 2
      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.51242) STOP 3
      end
add gcc 4.70 2012-03-27 23:13:14 +00:00			`C Test conditional compilation in fixed form if -fopenmp`
			`10 foo = 2`
			`&56`
upgrade to gcc 8.2.0 and newlib 3.0.0 2018-12-28 15:30:48 +00:00			`if (foo.ne.256) STOP 1`
add gcc 4.70 2012-03-27 23:13:14 +00:00			`bar = 26`
			`!$2 0 ba`
			`c$ +r = 42`
			`!$ bar = 62`
			`!$ bar = bar + 1`
upgrade to gcc 8.2.0 and newlib 3.0.0 2018-12-28 15:30:48 +00:00			`if (bar.ne.43) STOP 2`
add gcc 4.70 2012-03-27 23:13:14 +00:00			`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`
upgrade to gcc 8.2.0 and newlib 3.0.0 2018-12-28 15:30:48 +00:00			`if (baz.ne.51242) STOP 3`
add gcc 4.70 2012-03-27 23:13:14 +00:00			`end`