Retro68/gcc/libgomp/testsuite/libgomp.fortran/omp_cond3.F90

24 lines
446 B
Fortran
Raw Normal View History

2012-03-27 23:13:14 +00:00
! Test conditional compilation in free form if -fopenmp
10 foo = 2&
&56
2018-12-28 15:30:48 +00:00
if (foo.ne.256) STOP 1
2012-03-27 23:13:14 +00:00
bar = 26
!$ 20 ba&
!$ &r = 4&
!$2
!$bar = 62
!$ bar = bar + 2
#ifdef _OPENMP
bar = bar - 1
#endif
2018-12-28 15:30:48 +00:00
if (bar.ne.43) STOP 2
2012-03-27 23:13:14 +00:00
baz = bar
!$ 30 baz = 5& ! Comment
!$12 &
!$ + 2
!$X baz = 0 ! Not valid OpenMP conditional compilation lines
! $ baz = 1
baz = baz + 1 !$ baz = 2
2018-12-28 15:30:48 +00:00
if (baz.ne.515) STOP 3
2012-03-27 23:13:14 +00:00
end