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 5subroutine 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='') 17end subroutine 18