Fortran: check TEAM arguments to coarray intrinsics
authorHarald Anlauf <anlauf@gmx.de>
Mon, 9 May 2022 20:14:21 +0000 (22:14 +0200)
committerHarald Anlauf <anlauf@gmx.de>
Tue, 10 May 2022 17:10:05 +0000 (19:10 +0200)
commit5edd0802696f94012731306c704eaf61d184e09c
treedae931fd86955347e30ac63d3c0bc6fca9b9ad51
parent71eae0fd3dd7a5f30067ea26a06a8774355fd5cc
Fortran: check TEAM arguments to coarray intrinsics

TEAM arguments to coarray intrinsics must be scalar expressions of type
TEAM_TYPE of intrinsic module ISO_FORTRAN_ENV.

gcc/fortran/ChangeLog:

PR fortran/105526
* resolve.cc (check_team): New.
(gfc_resolve_code): Add checks for arguments to coarray intrinsics
FORM TEAM, CHANGE TEAM, and SYNC TEAM.

gcc/testsuite/ChangeLog:

PR fortran/105526
* gfortran.dg/coarray_50.f90: New test.
gcc/fortran/resolve.cc
gcc/testsuite/gfortran.dg/coarray_50.f90 [new file with mode: 0644]