32 lines
866 B
Fortran
32 lines
866 B
Fortran
|
! RUN: %python %S/test_errors.py %s %flang_fc1
|
||
|
|
! XFAIL: *
|
||
|
|
! Check for semantic errors in change team statements.
|
||
|
|
! This subtest contains tests for unimplemented errors.
|
||
|
|
|
||
|
|
subroutine test
|
||
|
|
use, intrinsic :: iso_fortran_env, only: team_type
|
||
|
|
type(team_type) :: team
|
||
|
|
integer, codimension[*] :: selector
|
||
|
|
|
||
|
|
! A branch to an END TEAM statement is permitted only from within the corresponding CHANGE TEAM construct.
|
||
|
|
change team (team)
|
||
|
|
if (.true.) then
|
||
|
|
end team
|
||
|
|
end if
|
||
|
|
end team
|
||
|
|
|
||
|
|
! A RETURN statement may not appear in a CHANGE TEAM construct.
|
||
|
|
change team (team)
|
||
|
|
! ERROR: TBD
|
||
|
|
return
|
||
|
|
end team
|
||
|
|
|
||
|
|
! On each image, the team variable specified in the CHANGE TEAM statement cannot become undefined or redefined during execution of the construct.
|
||
|
|
! ERROR: TBD
|
||
|
|
change team (team)
|
||
|
|
team = get_team(INITIAL_TEAM)
|
||
|
|
end team
|
||
|
|
end subroutine
|
||
|
|
|
||
|
|
|