32 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Test coarray association in CHANGE TEAM statement3 4subroutine s15 use iso_fortran_env6 save7 type(team_type) :: t8 complex :: x[*]9 real :: y[*]10 real :: z11 ! OK12 change team(t, x[*] => y)13 end team14 ! C111615 !ERROR: Selector in coarray association must name a coarray16 change team(t, x[*] => 1)17 end team18 !ERROR: Selector in coarray association must name a coarray19 change team(t, x[*] => z)20 end team21end22 23subroutine s224 use iso_fortran_env25 type(team_type) :: t26 real, save :: y[10,*], y2[*], x[*]27 ! C111328 !ERROR: The codimensions of 'x' have already been declared29 change team(t, x[10,*] => y, x[*] => y2)30 end team31end32