repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
gcc/
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.fortran
/
omp_cond3.F90
blob
3db2fd1163eb222d55460d1fd1c76a934ab2b417
1
! Test conditional compilation in free form if -fopenmp
2
10 foo = 2&
3
&56
4
if (foo.ne.256) STOP 1
5
bar = 26
6
!$ 20 ba&
7
!$ &r = 4&
8
!$2
9
!$bar = 62
10
!$ bar = bar + 2
11
#ifdef _OPENMP
12
bar = bar - 1
13
#endif
14
if (bar.ne.43) STOP 2
15
baz = bar
16
!$ 30 baz = 5& ! Comment
17
!$12 &
18
!$ + 2
19
!$X baz = 0 ! Not valid OpenMP conditional compilation lines
20
! $ baz = 1
21
baz = baz + 1 !$ baz = 2
22
if (baz.ne.515) STOP 3
23
end