1*210e675cSPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 2*210e675cSPeter Klauslerprogram main 3*210e675cSPeter Klausler use, intrinsic:: iso_fortran_env, only: team_type 4*210e675cSPeter Klausler type(team_type) team 5*210e675cSPeter Klausler logical :: p = false 6*210e675cSPeter Klausler1 change team(team) 7*210e675cSPeter Klausler2 if (p) goto 1 ! ok 8*210e675cSPeter Klausler if (p) goto 2 ! ok 9*210e675cSPeter Klausler if (p) goto 3 ! ok 10*210e675cSPeter Klausler if (p) goto 4 ! ok 11*210e675cSPeter Klausler if (p) goto 5 ! ok 12*210e675cSPeter Klausler3 end team 13*210e675cSPeter Klausler4 continue 14*210e675cSPeter Klausler if (p) goto 1 ! ok 15*210e675cSPeter Klausler !ERROR: Label '2' is in a construct that prevents its use as a branch target here 16*210e675cSPeter Klausler if (p) goto 2 17*210e675cSPeter Klausler !ERROR: Label '3' is in a construct that prevents its use as a branch target here 18*210e675cSPeter Klausler if (p) goto 3 19*210e675cSPeter Klausler5 end 20