Many thanks for the clarification. Therefore, I will send a bug report.
Now, look at this variant of the previous example:
integer,parameter::v(3)=(/3,1,2/)
real x(3)
data x(v)/4.,6.,2./
print *,x
end
Is this valid ? This example is also rejected by many compilers.
Thanks,
Jean Vezina
|