111
|
1 ! { dg-do compile }
|
|
2 ! { dg-options "-fdiagnostics-show-caret" }
|
|
3 ! { dg-allow-blank-lines-in-output 1 }
|
|
4
|
|
5 program main
|
|
6 goto 1000
|
|
7 1000 continue ! first instance
|
|
8 a = a
|
|
9 a = a
|
|
10 a = a
|
|
11 1000 continue ! second instance
|
|
12 end
|
|
13
|
|
14 #if 0
|
|
15 ! { dg-locus "4" "" { target *-*-* } "7" }
|
|
16 ! { dg-begin-multiline-output "" }
|
|
17
|
|
18 1000 continue ! first instance
|
|
19 1
|
|
20 ! { dg-end-multiline-output "" }
|
|
21 ! { dg-locus "4" "" { target *-*-* } "11" }
|
|
22 ! { dg-begin-multiline-output "" }
|
|
23
|
|
24 1000 continue ! second instance
|
|
25 2
|
|
26 Error: Duplicate statement label 1000 at (1) and (2)
|
|
27 ! { dg-end-multiline-output "" }
|
|
28 #endif
|