https://gcc.gnu.org/bugzilla/show_bug.cgi?id=88960
Bug ID: 88960
Summary: [F18] ISO_FORTRAN_ENV: add INITIAL_TEAM, PARENT_TEAM,
and CURRENT_TEAM
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: ---
The Fortran 2018 standard (N2146 draft) defines the GET_TEAM() intrinsic
function as:
==============================================================================
16.9.85 GET_TEAM ([LEVEL])
...
3 Argument. LEVEL (optional) shall be a scalar integer whose value is equal to
one of the named constants INITIAL_TEAM, PARENT_TEAM, or CURRENT_TEAM from the
intrinsic module ISO_FORTRAN_ENV.
==============================================================================
gfortran 8.2.0 does not provide these constants in ISO_FORTRAN_ENV:
==============================================================================
$ cat test_level.f90
use, intrinsic :: iso_fortran_env, only: INITIAL_TEAM, PARENT_TEAM,
CURRENT_TEAM
end
$ gfortran test_level.f90
test_level.f90:1:41:
use, intrinsic :: iso_fortran_env, only: INITIAL_TEAM, PARENT_TEAM,
CURRENT_TEAM
1
Error: Symbol 'initial_team' referenced at (1) not found in intrinsic module
ISO_FORTRAN_ENV
test_level.f90:1:55:
use, intrinsic :: iso_fortran_env, only: INITIAL_TEAM, PARENT_TEAM,
CURRENT_TEAM
1
Error: Symbol 'parent_team' referenced at (1) not found in intrinsic module
ISO_FORTRAN_ENV
test_level.f90:1:68:
use, intrinsic :: iso_fortran_env, only: INITIAL_TEAM, PARENT_TEAM,
CURRENT_TEAM
1
Error: Symbol 'current_team' referenced at (1) not found in intrinsic module
ISO_FORTRAN_ENV
==============================================================================
