25 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12subroutine test3 use, intrinsic :: iso_fortran_env, only: team_type4 type(team_type) team5loop1: do j = 1, 16 goto 1 ! ok71 construct2: change team (team)8 goto 2 ! ok9 exit construct2 ! ok10 !ERROR: EXIT must not leave a CHANGE TEAM statement11 exit loop112 !ERROR: EXIT must not leave a CHANGE TEAM statement13 exit14 !ERROR: CYCLE must not leave a CHANGE TEAM statement15 cycle16 !ERROR: RETURN statement is not allowed in a CHANGE TEAM construct17 return18 !ERROR: Control flow escapes from CHANGE TEAM19 goto 320 !ERROR: Control flow escapes from CHANGE TEAM21 write(*,*,err=3)222 end team construct2233 end do loop124end25