llvm/flang/test/Semantics/change_team01c.f90

! 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