https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82168
Paul Thomas <pault at gcc dot gnu.org> changed: What |Removed |Added ---------------------------------------------------------------------------- Status|WAITING |NEW Assignee|unassigned at gcc dot gnu.org |pault at gcc dot gnu.org --- Comment #2 from Paul Thomas <pault at gcc dot gnu.org> --- (In reply to Dominique d'Humieres from comment #1) > 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 Dear Dominique, Your example is legal. Thanks for following this. The original contains two bugs and so I have confirmed this PR as NEW. Cheers Paul