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