28 lines
1,004 B
Fortran
28 lines
1,004 B
Fortran
|
! RUN: %python %S/../test_errors.py %s %flang -fopenmp
|
||
|
|
!XFAIL: *
|
||
|
|
! OpenMP version 5.0.0
|
||
|
|
! 2.8.1 sections construct
|
||
|
|
! Orphaned section directives are prohibited. That is, the section directives must appear within the sections construct and must not be encountered elsewhere in the sections region
|
||
|
|
!TODO: Error in parsing. Make parser errors more informative. Until then, the test is XFAIL
|
||
|
|
|
||
|
|
program OmpOrphanedSections
|
||
|
|
use omp_lib
|
||
|
|
integer counter
|
||
|
|
counter = 0
|
||
|
|
!CHECK: expected 'END'
|
||
|
|
!CHECK: END PROGRAM statement
|
||
|
|
!CHECK: in the context: main program
|
||
|
|
!CHECK: expected 'END PROGRAM'
|
||
|
|
!CHECK: in the context: END PROGRAM statement
|
||
|
|
!CHECK: in the context: main program
|
||
|
|
!$omp section
|
||
|
|
print *, "An orphaned section containing a single statement"
|
||
|
|
!$omp section
|
||
|
|
counter = counter + 1
|
||
|
|
print *, "An orphaned section containing multiple statements"
|
||
|
|
!$omp sections
|
||
|
|
!$omp section
|
||
|
|
print *, "Not an orphan structured block"
|
||
|
|
!$omp end sections
|
||
|
|
end program OmpOrphanedSections
|