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