blob: b8fbb3c26ee1fc98c8d75546aeabbe3a9a3f7cad [file] [log] [blame]
! { dg-do compile}
program test
print 1, 'string 1' ! { dg-error "FORMAT label 1" " " { target *-*-* } 3 }
print 1, 'string 2' ! { dg-error "FORMAT label 1" " " { target *-*-* } 4 }
!1 format(a)
goto 2 ! { dg-error "Label 2 referenced" " " { target *-*-* } 6 }
goto 2 ! { dg-error "Label 2 referenced" " " { target *-*-* } 7 }
!2 continue
end program