1! { dg-do compile }
2! { dg-options "-fdiagnostics-show-caret" }
3! { dg-allow-blank-lines-in-output 1 }
4
5program main
6  goto 1000
71000 continue ! first instance
8  a = a
9  a = a
10  a = a
111000 continue ! second instance
12end
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
26Error: Duplicate statement label 1000 at (1) and (2)
27! { dg-end-multiline-output "" }
28#endif
29