1! RUN: %python %S/test_errors.py %s %flang_fc1 2! XFAIL: * 3! Check for semantic errors in form team statements 4! This subtest contains tests for unimplemented errors. 5 6subroutine test 7 use, intrinsic :: iso_fortran_env, only: team_type 8 type(team_type) :: team 9 integer :: team_number 10 integer, codimension[*] :: co_statvar 11 character(len=50), codimension[*] :: co_errvar 12 13 ! Semantically invalid invocations. 14 ! argument 'stat' shall not be a coindexed object 15 !ERROR: to be determined 16 FORM TEAM (team_number, team, STAT=co_statvar[this_image()]) 17 ! argument 'errmsg' shall not be a coindexed object 18 !ERROR: to be determined 19 FORM TEAM (team_number, team, ERRMSG=co_errvar[this_image()]) 20 21end subroutine 22