gcc/testsuite/gfortran.dg/pr69554-2.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 1000 continue ! second instance
   9 end
  10
  11 #if 0
  12 ! { dg-locus "4" "" { target *-*-* } "7" }
  13 ! { dg-begin-multiline-output "" }
  14
  15  1000 continue ! first instance
  16     1
  17  1000 continue ! second instance
  18     2
  19 Error: Duplicate statement label 1000 at (1) and (2)
  20 ! { dg-end-multiline-output "" }
  21 #endif