Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/end_associate_label_1.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do compile } |
2 ! | |
3 ! PR fortran/50071 | |
4 ! A label in an END ASSOCIATE statement was ignored; as a result, a GOTO | |
5 ! to such a label was rejected. | |
6 ! | |
7 ! Contributed by Tobias Burnus <burnus@net-b.de> | |
8 | |
9 integer :: i | |
10 associate (j => i) | |
11 goto 1 | |
12 print *, 'Hello' | |
13 1 end associate | |
14 end |