19 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check for semantic errors in form team statements3! This subtest contains tests for unimplemented errors.4 5subroutine test6 use, intrinsic :: iso_fortran_env, only: team_type7 type(team_type) :: team8 integer :: team_number9 integer, save, codimension[*] :: co_statvar10 character(len=50), save, codimension[*] :: co_errvar11 procedure(type(team_type)) teamfunc12 !ERROR: The stat-variable or errmsg-variable in a form-team-spec-list may not be a coindexed object13 FORM TEAM (team_number, team, STAT=co_statvar[this_image()])14 !ERROR: The stat-variable or errmsg-variable in a form-team-spec-list may not be a coindexed object15 FORM TEAM (team_number, team, ERRMSG=co_errvar[this_image()])16 !ERROR: Team must be a variable in this context17 form team (team_number, teamfunc())18end subroutine19