summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr69554-1.F90
blob: 38a3c88f3cbe5d80cec084c7a61db75728969c6d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
! { dg-do compile }
! { dg-options "-fdiagnostics-show-caret" }
! { dg-allow-blank-lines-in-output 1 }

program main
  goto 1000
1000 continue ! first instance
  a = a
  a = a
  a = a
1000 continue ! second instance
end

#if 0
! { dg-locus "4" "" { target *-*-* } "7" }
! { dg-begin-multiline-output "" }

 1000 continue ! first instance
    1
! { dg-end-multiline-output "" }
! { dg-locus "4" "" { target *-*-* } "11" }
! { dg-begin-multiline-output "" }

 1000 continue ! second instance
    2
Error: Duplicate statement label 1000 at (1) and (2)
! { dg-end-multiline-output "" }
#endif