1*37221030SHussain Kadhem! RUN: %python %S/test_errors.py %s %flang_fc1 2*37221030SHussain Kadhem! Check for semantic errors in change team statements 3*37221030SHussain Kadhem! This subtest contains syntactic tests that prevent the main tests from being emitted. 4*37221030SHussain Kadhem 5*37221030SHussain Kadhemsubroutine test 6*37221030SHussain Kadhem use, intrinsic :: iso_fortran_env, only: team_type 7*37221030SHussain Kadhem type(team_type) :: team 8*37221030SHussain Kadhem 9*37221030SHussain Kadhem ! 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*37221030SHussain Kadhem block 11*37221030SHussain Kadhem construct: change team (team) 12*37221030SHussain Kadhem ! ERROR: CHANGE TEAM construct name required but missing 13*37221030SHussain Kadhem end team 14*37221030SHussain Kadhem end block 15*37221030SHussain Kadhem ! If a construct name appears on an END TEAM statement, the same construct name must appear on the corresponding CHANGE TEAM statement. 16*37221030SHussain Kadhem block 17*37221030SHussain Kadhem change team (team) 18*37221030SHussain Kadhem ! ERROR: CHANGE TEAM construct name unexpected 19*37221030SHussain Kadhem end team construct 20*37221030SHussain Kadhem end block 21*37221030SHussain Kadhem block 22*37221030SHussain Kadhem construct1: change team (team) 23*37221030SHussain Kadhem ! ERROR: CHANGE TEAM construct name mismatch 24*37221030SHussain Kadhem end team construct2 25*37221030SHussain Kadhem end block 26*37221030SHussain Kadhemend subroutine 27*37221030SHussain Kadhem 28*37221030SHussain Kadhem 29