1! { dg-do compile } 2! { dg-options "-std=f2008" } 3 4! PR fortran/44709 5! Check that the resolving of loop names in parent namespaces introduced to 6! handle intermediate BLOCK's does not go too far and other sanity checks. 7 8! Contributed by Daniel Kraft, d@domob.eu. 9 10PROGRAM main 11 IMPLICIT NONE 12 13 EXIT ! { dg-error "is not within a construct" } 14 EXIT foobar ! { dg-error "is unknown" } 15 EXIT main ! { dg-error "is not a construct name" } 16 17 mainLoop: DO 18 CALL test () 19 END DO mainLoop 20 21 otherLoop: DO 22 EXIT mainLoop ! { dg-error "is not within construct 'mainloop'" } 23 END DO otherLoop 24 25CONTAINS 26 27 SUBROUTINE test () 28 EXIT mainLoop ! { dg-error "is unknown" } 29 END SUBROUTINE test 30 31END PROGRAM main 32