[Bug fortran/82205] New: parametrized derived types, problems with initialization

[physiker at toast2 dot net]

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

            Bug ID: 82205
           Summary: parametrized derived types, problems with
                    initialization
           Product: gcc
           Version: 8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: physiker at toast2 dot net
  Target Milestone: ---

gfortran-8 rejects the code bug3.f90. I believe it is legal, though. ifort
version 17 compiles the code without a warning. The executable prints the
expected output, when run.

bug3.f90
module mod
implicit none

integer, parameter :: dp = kind (0.0d0)

type, public :: v(z, k)
   integer, len :: z
   integer, kind :: k = kind(0.0)
   real(kind = k) :: e(z)
end type v

end module mod

program bug
use mod
implicit none

integer :: i
type (v(2)) :: a
type (v(z=:, k=dp)), allocatable :: b
real :: c(2) = [ (1.5*i, i=1,size(c)) ]
a = v(2)(c)
b = v(2,dp)(c)

print *, size(a%e), a%k
print *, size(b%e), b%k
end program bug

LANG=C gfortran-8 -v -o bug3 bug3.f90 -W -Wall
Driving: gfortran-8 -v -o bug3 bug3.f90 -W -Wall -mmacosx-version-min=10.11.0
-asm_macosx_version_min=10.11 -l gfortran -shared-libgcc
Using built-in specs.
COLLECT_GCC=gfortran-8
COLLECT_LTO_WRAPPER=/usr/local/libexec/gcc/x86_64-apple-darwin15.6.0/8.0.0/lto-wrapper
Target: x86_64-apple-darwin15.6.0
Configured with: ../gcc/configure --enable-languages=c,c++,fortran,lto
--with-gmp=/sw --with-libiconv-prefix=/sw --with-isl=/sw --with-mpc=/sw
--with-system-zlib --program-suffix=-8
Thread model: posix
gcc version 8.0.0 20170912 (experimental) [trunk revision 252040] (GCC) 
COLLECT_GCC_OPTIONS='-v' '-o' 'bug3' '-Wextra' '-Wall'
'-mmacosx-version-min=10.11.0' '-asm_macosx_version_min=10.11' '-shared-libgcc'
'-mtune=core2'
 /usr/local/libexec/gcc/x86_64-apple-darwin15.6.0/8.0.0/f951 bug3.f90 -fPIC
-quiet -dumpbase bug3.f90 -mmacosx-version-min=10.11.0 -mtune=core2 -auxbase
bug3 -Wextra -Wall -version -fintrinsic-modules-path
/usr/local/lib/gcc/x86_64-apple-darwin15.6.0/8.0.0/finclude -o
/var/folders/97/4qnhjhtn25s86s9hkz0h37_m0000gn/T//cc8Do2wy.s
GNU Fortran (GCC) version 8.0.0 20170912 (experimental) [trunk revision 252040]
(x86_64-apple-darwin15.6.0)
        compiled by GNU C version 8.0.0 20170912 (experimental) [trunk revision
252040], GMP version 6.1.2, MPFR version 3.1.6, MPC version 1.0.3, isl version
isl-0.16.1-GMP

GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
GNU Fortran2008 (GCC) version 8.0.0 20170912 (experimental) [trunk revision
252040] (x86_64-apple-darwin15.6.0)
        compiled by GNU C version 8.0.0 20170912 (experimental) [trunk revision
252040], GMP version 6.1.2, MPFR version 3.1.6, MPC version 1.0.3, isl version
isl-0.16.1-GMP

GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
bug3.f90:22:7:

 a = v(2)(c)
       1
Error: Invalid character in name at (1)
bug3.f90:23:7:

 b = v(2,dp)(c)
       1
Error: Invalid character in name at (1)

~$ ifort -v
ifort version 17.0.0
~$ ifort -warn all -standardsemantics -o bug3 bug3.f90
~$ ./bug3
           2           4
           2           8