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
LoongArch: Expand some SImode operations through "si3_extend" instructions if TARGET_...
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.fortran
/
omp_cond3.F90
blob
6a8ce52d326e5a88eebe853ab3f3ffbd6cc88856
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