https://gcc.gnu.org/bugzilla/show_bug.cgi?id=97210
Bug ID: 97210
Summary: Intrinsic function get_team() does not work
Product: gcc
Version: 10.2.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: Bader at lrz dot de
Target Milestone: ---
Created attachment 49273
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=49273&action=edit
Test case
The attached test program fails with the following error message:
eams_02_pos.f90:8:9:
8 | init = get_team()
| 1
Error: Cannot convert INTEGER(4) to TYPE(team_type) at (1)
teams_02_pos.f90:16:19:
16 | if (this_image(init) == me) then
| 1
Error: Expected coarray variable as ‘coarray’ argument to the this_image
intrinsic at (1)
Error: comand:
`/opt/gcc/10.2/bin/gfortran
-I/opt/gcc/10.2/coarrays_mpich/include/OpenCoarrays-2.9.0_GNU-10.2.0
-fcoarray=lib -Wl,-rpath -Wl,/opt/mpich/3.3.2_gcc10/lib -Wl,--enable-new-dtags
teams_02_pos.f90 /opt/gcc/10.2/coarrays_mpich/lib/libcaf_mpi.a
/opt/mpich/3.3.2_gcc10/lib/libmpifort.so /opt/mpich/3.3.2_gcc10/lib/libmpi.so`
failed to compile.
So, apart from missing or incorrectly implemented support for get_team also the
TEAM argument for this_image() is not accepted.
