Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/omp_cond3.F90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
1 ! Test conditional compilation in free form if -fopenmp 1 ! Test conditional compilation in free form if -fopenmp
2 10 foo = 2& 2 10 foo = 2&
3 &56 3 &56
4 if (foo.ne.256) call abort 4 if (foo.ne.256) STOP 1
5 bar = 26 5 bar = 26
6 !$ 20 ba& 6 !$ 20 ba&
7 !$ &r = 4& 7 !$ &r = 4&
8 !$2 8 !$2
9 !$bar = 62 9 !$bar = 62
10 !$ bar = bar + 2 10 !$ bar = bar + 2
11 #ifdef _OPENMP 11 #ifdef _OPENMP
12 bar = bar - 1 12 bar = bar - 1
13 #endif 13 #endif
14 if (bar.ne.43) call abort 14 if (bar.ne.43) STOP 2
15 baz = bar 15 baz = bar
16 !$ 30 baz = 5& ! Comment 16 !$ 30 baz = 5& ! Comment
17 !$12 & 17 !$12 &
18 !$ + 2 18 !$ + 2
19 !$X baz = 0 ! Not valid OpenMP conditional compilation lines 19 !$X baz = 0 ! Not valid OpenMP conditional compilation lines
20 ! $ baz = 1 20 ! $ baz = 1
21 baz = baz + 1 !$ baz = 2 21 baz = baz + 1 !$ baz = 2
22 if (baz.ne.515) call abort 22 if (baz.ne.515) STOP 3
23 end 23 end