1! { dg-do compile } 2 3 SUBROUTINE WRONG3(N) 4 INTEGER N 5 INTEGER I 6!$OMP PARALLEL DEFAULT(SHARED) 7!$OMP DO 8 DO I = 1, N 9 ! incorrect nesting of regions 10!$OMP SINGLE ! { dg-error "may not be closely nested" } 11 CALL WORK(I, 1) 12!$OMP END SINGLE 13 END DO 14!$OMP END PARALLEL 15 END SUBROUTINE WRONG3 16