[Bug fortran/82168] Parameterized Derived Types, problems with default type parameters

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |WAITING
   Last reconfirmed|                            |2017-09-11
                 CC|                            |pault at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Confirmed. Is the code valid?

module mod
implicit none

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

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

end module mod

program bug
use mod
implicit none

type (v(2,dp)) :: a

a%e = 1.0
print *, a%e
end program bug

prints

   1.0000000000000000        1.0000000000000000