1! { dg-do compile } 2 3 SUBROUTINE WORK(I, J) 4 INTEGER I,J 5 END SUBROUTINE WORK 6 SUBROUTINE A6_GOOD() 7 INTEGER I, J 8 REAL A(1000) 9 DO 100 I = 1,10 10!$OMP DO 11 DO 100 J = 1,10 12 CALL WORK(I,J) 13 100 CONTINUE ! !$OMP ENDDO implied here 14!$OMP DO 15 DO 200 J = 1,10 16200 A(I) = I + 1 17!$OMP ENDDO 18!$OMP DO 19 DO 300 I = 1,10 20 DO 300 J = 1,10 21 CALL WORK(I,J) 22300 CONTINUE 23!$OMP ENDDO 24 END SUBROUTINE A6_GOOD 25