gcc/testsuite/gfortran.dg/pr70006.f90

   1 ! { dg-do compile }
   2 program test
   3    print 1, 'string 1' ! { dg-error "FORMAT label 1" " " }
   4    print 1, 'string 2' ! { dg-error "FORMAT label 1" " " }
   5 !1 format(a)
   6    goto 2 ! { dg-error "Label 2 referenced" " " }
   7    goto 2 ! { dg-error "Label 2 referenced" " " }
   8 !2 continue
   9 end program