annotate gcc/testsuite/gfortran.dg/exit_2.f08 @ 132:d34655255c78

update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! { dg-options "-std=f2008" }
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 ! PR fortran/44709
kono
parents:
diff changeset
5 ! Check that the resolving of loop names in parent namespaces introduced to
kono
parents:
diff changeset
6 ! handle intermediate BLOCK's does not go too far and other sanity checks.
kono
parents:
diff changeset
7
kono
parents:
diff changeset
8 ! Contributed by Daniel Kraft, d@domob.eu.
kono
parents:
diff changeset
9
kono
parents:
diff changeset
10 PROGRAM main
kono
parents:
diff changeset
11 IMPLICIT NONE
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 EXIT ! { dg-error "is not within a construct" }
kono
parents:
diff changeset
14 EXIT foobar ! { dg-error "is unknown" }
kono
parents:
diff changeset
15 EXIT main ! { dg-error "is not a construct name" }
kono
parents:
diff changeset
16
kono
parents:
diff changeset
17 mainLoop: DO
kono
parents:
diff changeset
18 CALL test ()
kono
parents:
diff changeset
19 END DO mainLoop
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 otherLoop: DO
kono
parents:
diff changeset
22 EXIT mainLoop ! { dg-error "is not within construct 'mainloop'" }
kono
parents:
diff changeset
23 END DO otherLoop
kono
parents:
diff changeset
24
kono
parents:
diff changeset
25 CONTAINS
kono
parents:
diff changeset
26
kono
parents:
diff changeset
27 SUBROUTINE test ()
kono
parents:
diff changeset
28 EXIT mainLoop ! { dg-error "is unknown" }
kono
parents:
diff changeset
29 END SUBROUTINE test
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 END PROGRAM main