43 lines
1.0 KiB
Fortran
43 lines
1.0 KiB
Fortran
! PR fortran/29759
|
|
! { dg-do compile }
|
|
|
|
PROGRAM test_omp
|
|
!$OMP PARALLEL &
|
|
!$OMP NUM_THREADS(2)
|
|
!$OMP END PARALLEL
|
|
|
|
!$OMP PARALLEL &
|
|
!$OMP & NUM_THREADS(2)
|
|
!$OMP END PARALLEL
|
|
|
|
!$OMP PARALLEL &
|
|
!
|
|
!$OMP NUM_THREADS(2)
|
|
!$OMP END PARALLEL
|
|
|
|
!$OMP PARALLEL &
|
|
!
|
|
!$OMP & NUM_THREADS(2)
|
|
!$OMP END PARALLEL
|
|
|
|
|
|
!$OMP PARALLEL & ! { dg-error "Unclassifiable OpenMP" }
|
|
!$ NUM_THREADS(2) ! { dg-error "Unclassifiable|Invalid character" }
|
|
!$OMP END PARALLEL ! { dg-error "Unexpected" }
|
|
|
|
!$OMP PARALLEL & ! { dg-error "Unclassifiable OpenMP" }
|
|
!$ & NUM_THREADS(2) ! { dg-error "Unclassifiable|Invalid character" }
|
|
!$OMP END PARALLEL ! { dg-error "Unexpected" }
|
|
|
|
!$OMP PARALLEL & ! { dg-error "Unclassifiable OpenMP" }
|
|
!
|
|
!$ NUM_THREADS(2) ! { dg-error "Unclassifiable|Invalid character" }
|
|
!$OMP END PARALLEL ! { dg-error "Unexpected" }
|
|
|
|
!$OMP PARALLEL & ! { dg-error "Unclassifiable OpenMP" }
|
|
!
|
|
!$ & NUM_THREADS(2) ! { dg-error "Unclassifiable|Invalid character" }
|
|
!$OMP END PARALLEL ! { dg-error "Unexpected" }
|
|
|
|
END PROGRAM
|