gcc/testsuite/gfortran.dg/pr69554-1.F90

   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