To all:
I would like to know if the two following programs are
standard conforming
Example 1:
integer,parameter::x(3)=(/1,2,3/)
character(*),parameter::p='1234'
character*2 a,b
data i,j,k/x(1),x(2),x(3)/
data a,b/p(1:2),p(3:4)/
print *,i,j,k
print *,a,b
end
Example 2:
TYPE DT
INTEGER :: COUNT(2)
END TYPE DT
TYPE(DT), PARAMETER, DIMENSION(3) :: SPARM = DT ( (/3,5/) )
INTEGER :: A(5)
DATA A /SPARM(2)%COUNT(2) * 10/
print *,a
end
The Fortran 95 standard says that a valid DATA initialization item
may be a subobject of a scalar constant. However, the two compilers
I am using reject the examples. Before sending
bug reports, I would be sure that these examples are correct.
Thanks in advance!
Best regards,
Jean Vezina
|