https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87326
Bug ID: 87326
Summary: Support the NEW_INDEX= specifier in the FORM TEAM
statement
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: ---
gfortran 8.2 does not accept the NEW_INDEX= specifier of the (Fortran 2018)
FORM TEAM statement. The following example is note 11.48 from N2146, modified
to define & initialize P & have an END PROGRAM statement:
$ cat note-11.48.f90
USE, INTRINSIC :: ISO_FORTRAN_ENV
integer, parameter :: P = 8
TYPE(TEAM_TYPE) :: ROW
REAL :: A [P, *]
INTEGER :: ME (2)
ME (:) = THIS_IMAGE (A)
FORM TEAM (ME(1), ROW, NEW_INDEX=ME(2))
end program
$ gfortran-mp-8 -fcoarray=single note-11.48.f90
note-11.48.f90:7:21:
FORM TEAM (ME(1), ROW, NEW_INDEX=ME(2))
1
Error: Syntax error in FORM TEAM statement at (1)
