gcc/testsuite/gfortran.dg/gomp/pr29759.f90

   1 ! PR fortran/29759
   2 ! { dg-do compile }
   3
   4 PROGRAM test_omp
   5 !$OMP PARALLEL &
   6 !$OMP NUM_THREADS(2)
   7 !$OMP END PARALLEL
   8
   9 !$OMP PARALLEL &
  10 !$OMP & NUM_THREADS(2)
  11 !$OMP END PARALLEL
  12
  13 !$OMP PARALLEL &
  14 !
  15 !$OMP NUM_THREADS(2)
  16 !$OMP END PARALLEL
  17
  18 !$OMP PARALLEL &
  19 !
  20 !$OMP & NUM_THREADS(2)
  21 !$OMP END PARALLEL
  22
  23
  24 !$OMP PARALLEL &                ! { dg-error "Unclassifiable OpenMP" }
  25 !$    NUM_THREADS(2)            ! { dg-error "Unclassifiable|Invalid character" }
  26 !$OMP END PARALLEL              ! { dg-error "Unexpected" }
  27
  28 !$OMP PARALLEL &                ! { dg-error "Unclassifiable OpenMP" }
  29 !$    & NUM_THREADS(2)          ! { dg-error "Unclassifiable|Invalid character" }
  30 !$OMP END PARALLEL              ! { dg-error "Unexpected" }
  31
  32 !$OMP PARALLEL &                ! { dg-error "Unclassifiable OpenMP" }
  33 !
  34 !$    NUM_THREADS(2)            ! { dg-error "Unclassifiable|Invalid character" }
  35 !$OMP END PARALLEL              ! { dg-error "Unexpected" }
  36
  37 !$OMP PARALLEL &                ! { dg-error "Unclassifiable OpenMP" }
  38 !
  39 !$    & NUM_THREADS(2)          ! { dg-error "Unclassifiable|Invalid character" }
  40 !$OMP END PARALLEL              ! { dg-error "Unexpected" }
  41
  42 END PROGRAM