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

[pault at gcc dot gnu.org]

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