llvm/flang/test/Semantics/form_team01a.f90

! RUN: %python %S/test_errors.py %s %flang_fc1
! Check for semantic errors in form team statements
! This subtest contains syntactic tests that prevent the main tests from being emitted.

subroutine test
  use, intrinsic :: iso_fortran_env, only: team_type
  type(team_type) :: team
  integer :: team_number

  ! Syntactically invalid invocations.
  !ERROR: expected '('
  FORM TEAM (team_number, 0)
  !ERROR: expected '('
  FORM TEAM (team_number, team, STAT=0)
  !ERROR: expected '('
  FORM TEAM (team_number, team, ERRMSG='')
end subroutine