flang/test/Semantics/form_team01b.f90

   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
   6 subroutine 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
  21 end subroutine