OSDN Git Service

2007-02-21 Bernhard Fischer <aldot@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / gomp / omp_parse1.f90
1 ! { dg-do compile }
2 ! { dg-options "-fopenmp -fdump-tree-omplower" }
3   !$omp  parallel
4 call bar
5         !$omp end parallel
6   !$omp                 p&
7 !$omp&arallel
8 call bar
9 !$omp e&
10 !$omp&ndparallel
11 !$omp  &
12 !$omp  &  &
13 !$omp pa&
14 !$omp rallel
15 call bar
16 !$omp end parallel
17 ! Non-continuation !$omp must be followed by space, and my reading
18 ! doesn't seem to allow tab there.  So such lines should be completely
19 ! ignored.
20 !$omp   strange
21 end
22
23 ! { dg-final { scan-tree-dump-times "pragma omp parallel" 3 "omplower" } }
24 ! { dg-final { cleanup-tree-dump "omplower" } }