20 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12program main3 use, intrinsic:: iso_fortran_env, only: team_type4 type(team_type) team5 logical :: p = false61 change team(team)72 if (p) goto 1 ! ok8 if (p) goto 2 ! ok9 if (p) goto 3 ! ok10 if (p) goto 4 ! ok11 if (p) goto 5 ! ok123 end team134 continue14 if (p) goto 1 ! ok15 !ERROR: Label '2' is in a construct that prevents its use as a branch target here16 if (p) goto 217 !ERROR: Label '3' is in a construct that prevents its use as a branch target here18 if (p) goto 3195 end20