On Fri, Aug 4, 2017 at 4:59 PM, Anton Shterenlikht <[log in to unmask]> wrote:
> Is this program conforming?
>
> type vector( rk, length )
> integer, kind :: rk
> integer, len :: length
> real( kind=rk ) :: val( length )
> end type vector
> type( vector( kind(0.0d0), 1000 ) ) :: arr
> write (*,*) arr % val % kind
> write (*,*) arr % rk
> end
>
> I think it is.
> I think the 2 output values must be identical.
>
> Compiler 1 outputs 2 identical values.
> Compiler 2 outputs 2 different values.
>
> Anton
I concur, I too think this latest example involving parameterized
derived types (PDTs) is also standard-conforming,
I'm glad the compiler I work with, the vendor for which got pestered a
fair amount with my bug reports on their PDT implementation, now
yields identical values with both the WRITE statements.
Vipul
|