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  !  { dg-warning "starts a commented line" }
  21 end
  22
  23 ! { dg-final { scan-tree-dump-times "pragma omp parallel" 3 "omplower" } }
  24 ! { dg-final { cleanup-tree-dump "omplower" } }