[Bug fortran/87556] New: FORM TEAM statement team-number argument interpreted incorrectly when function

[weeks at iastate dot edu]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87556

            Bug ID: 87556
           Summary: FORM TEAM statement team-number argument interpreted
                    incorrectly when function
           Product: gcc
           Version: 8.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: weeks at iastate dot edu
  Target Milestone: ---

Created attachment 44810
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=44810&action=edit
reproducer

In the attached reproducer, the gfortran 8.2.0 FORM TEAM statement appears to
misinterpret a team-number actual argument when it is a scalar-int-expr
involving a function, but not when the result of this expression is first
assigned to an integer variable that is then used as the team-number argument.

The following output, using the OpenCoarrays compiler driver, contains 4
columns: current team, this_image() in initial team, this_image() in current
team, and num_images() in current team. It looks correct for my_team1 (integer
variable actual argument), and incorrect for my_team2 (scalar-int-expr
involving a function). 

========================================================
$ caf -std=f2018 -Wall -Wextra test_form_team.f90 
$ cafrun -np 6 ./a.out | sort
 my_team1           1           1           3
 my_team1           2           2           3
 my_team1           3           3           3
 my_team1           4           1           3
 my_team1           5           2           3
 my_team1           6           3           3
 my_team2           1           1           6
 my_team2           2           2           6
 my_team2           3           3           6
 my_team2           4           4           6
 my_team2           5           5           6
 my_team2           6           6           6
========================================================

This seems like the issue gfortran front-end, rather than the OpenCoarrays
library.

Software versions:

========================================================
$ caf --version

OpenCoarrays Coarray Fortran Compiler Wrapper (caf version 2.2.0-13-gb47afbc)
Copyright (C) 2015-2018 Sourcery Institute
Copyright (C) 2015-2018 Sourcery, Inc.

OpenCoarrays comes with NO WARRANTY, to the extent permitted by law.
You may redistribute copies of OpenCoarrays under the terms of the
BSD 3-Clause License.  For more information about these matters, see
the file named LICENSE that is distributed with OpenCoarrays.
$ caf -w
caf wraps /opt/local/bin/gfortran-mp-8
$ /opt/local/bin/gfortran-mp-8 -dumpversion
8.2.0
$ mpiexec --version | head -n 2
HYDRA build details:
    Version:                                 3.3b3
========================================================