Mercurial > hg > CbC > CbC_gcc
annotate libgomp/testsuite/libgomp.fortran/omp_cond3.F90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
rev | line source |
---|---|
0 | 1 ! Test conditional compilation in free form if -fopenmp |
2 10 foo = 2& | |
3 &56 | |
145 | 4 if (foo.ne.256) stop 1 |
0 | 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 | |
145 | 14 if (bar.ne.43) stop 2 |
0 | 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 | |
145 | 22 if (baz.ne.515) stop 3 |
0 | 23 end |