Re: transfer_array_intrinsic testcase failures (was Re: transfer_array_intrinsic failures)

[Paul Thomas <paulthomas2 at wanadoo dot fr>]

Dominique,

> Paul,
>
> I am not sure to follow you with 'size_bytes(DEST)'. What is it in the following code:
>
> integer(4) :: y(4)
> character(4) :: ch(4)=(/'abcd','efgh','ijkl','mnop'/)
> y = transfer(ch,y)
> print *, y
> print *, transfer(y,ch,3)
> end
>  
in the first, it is of course shape(y)*kind(y), whilst in the second it 
is determined by transfer to be 3*sizeof(ch(1))

> PS Apparently there is no conformance check in gfortran:
>  
You are mostly correct - this is why I was saying earlier that I had a 
partial patch:

try

real(4) :: pi, a(2), b(3)
b = reshape ((/1.0/),(/1/))
print *, b
end

Paul