flang/test/Semantics/form_team01a.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Check for semantic errors in form team statements
   3 ! This subtest contains syntactic tests that prevent the main tests from being emitted.
   4
   5 subroutine test
   6   use, intrinsic :: iso_fortran_env, only: team_type
   7   type(team_type) :: team
   8   integer :: team_number
   9
  10   ! Syntactically invalid invocations.
  11   !ERROR: expected '('
  12   FORM TEAM (team_number, 0)
  13   !ERROR: expected '('
  14   FORM TEAM (team_number, team, STAT=0)
  15   !ERROR: expected '('
  16   FORM TEAM (team_number, team, ERRMSG='')
  17 end subroutine