2 ! { dg-options "-std=f2008" }
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.
8 ! Contributed by Daniel Kraft, d@domob.eu.
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" }
22 EXIT mainLoop ! { dg-error "is not within construct 'mainloop'" }
28 EXIT mainLoop ! { dg-error "is unknown" }