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
