32 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! XFAIL: *3! Check for semantic errors in change team statements.4! This subtest contains tests for unimplemented errors.5 6subroutine test7 use, intrinsic :: iso_fortran_env, only: team_type8 type(team_type) :: team9 integer, codimension[*] :: selector10 11 ! A branch to an END TEAM statement is permitted only from within the corresponding CHANGE TEAM construct.12 change team (team)13 if (.true.) then14 end team15 end if16 end team17 18 ! A RETURN statement may not appear in a CHANGE TEAM construct.19 change team (team)20 ! ERROR: TBD21 return22 end team23 24 ! On each image, the team variable specified in the CHANGE TEAM statement cannot become undefined or redefined during execution of the construct.25 ! ERROR: TBD26 change team (team)27 team = get_team(INITIAL_TEAM)28 end team29end subroutine30 31 32