Mercurial > hg > CbC > CbC_gcc
annotate libgomp/testsuite/libgomp.fortran/omp_cond3.F90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | a06113de4d67 |
children | 84e7813d76e9 |
rev | line source |
---|---|
0 | 1 ! Test conditional compilation in free form if -fopenmp |
2 10 foo = 2& | |
3 &56 | |
4 if (foo.ne.256) call abort | |
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) call abort | |
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) call abort | |
23 end |