29 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check for semantic errors in change 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 9 ! If a construct name appears on the CHANGE TEAM statement of the construct, the same name must also appear on the END TEAM construct.10 block11 construct: change team (team)12 ! ERROR: CHANGE TEAM construct name required but missing13 end team14 end block15 ! If a construct name appears on an END TEAM statement, the same construct name must appear on the corresponding CHANGE TEAM statement.16 block17 change team (team)18 ! ERROR: CHANGE TEAM construct name unexpected19 end team construct20 end block21 block22 construct1: change team (team)23 ! ERROR: CHANGE TEAM construct name mismatch24 end team construct225 end block26end subroutine27 28 29