gcc/testsuite/gfortran.dg/gomp/omp_parse2.f

   1 c { dg-do compile }
   2 c { dg-options "-fopenmp -fdump-tree-omplower" }
   3 !$omp  parallel
   4       call bar
   5 c$omp   end parallel
   6 C$omp           p
   7 *$omp+arallel
   8       call bar
   9 !$omp e
  10 !$omp+ndparallel
  11       end
  12
  13 ! { dg-final { scan-tree-dump-times "pragma omp parallel" 2 "omplower" } }
  14 ! { dg-final { cleanup-tree-dump "omplower" } }