1! RUN: %S/test_errors.sh %s %t %f18 2! Test coarray association in CHANGE TEAM statement 3 4subroutine s1 5 use iso_fortran_env 6 type(team_type) :: t 7 complex :: x[*] 8 real :: y[*] 9 real :: z 10 ! OK 11 change team(t, x[*] => y) 12 end team 13 ! C1116 14 !ERROR: Selector in coarray association must name a coarray 15 change team(t, x[*] => 1) 16 end team 17 !ERROR: Selector in coarray association must name a coarray 18 change team(t, x[*] => z) 19 end team 20end 21 22subroutine s2 23 use iso_fortran_env 24 type(team_type) :: t 25 real :: y[10,*], y2[*], x[*] 26 ! C1113 27 !ERROR: The codimensions of 'x' have already been declared 28 change team(t, x[10,*] => y, x[*] => y2) 29 end team 30end 31