18 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check for parsing errors in form team statements3! This subtest contains syntactic tests that prevent the main tests from being emitted.4 5subroutine test6 use, intrinsic :: iso_fortran_env, only: team_type7 type(team_type) :: team8 integer :: team_number9 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 subroutine18