Orphaned Directives

PROGRAM main

!$OMP PARALLEL

CALL foo()

CALL bar()

CALL error()

!$OMP END PARALLEL

SUBROUTINE error()

! Not allowed due to

! nested control structs

!$OMP SECTIONS

!$OMP SECTION

CALL foo()

!$OMP SECTION

CALL bar()

!$OMP END SECTIONS

END

SUBROUTINE foo()

!$OMP DO

DO i = 1, n

...

END DO

!$OMP END DO

END

SUBROUTINE bar()

!$OMP SECTIONS

!$OMP SECTION

CALL section1()

!$OMP SECTION

...

!$OMP SECTION

...

!$OMP END SECTIONS

END

Previous slide

Next slide

Back to first slide

View graphic version