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
