I wouldn't like to comment on standard conformance.
But CVF 6.6A rejects both cases. If it is concluded that the programs
are standard conforming can you please advise the list which compilers
you are using.
Regards,
David.
Jean Vezina wrote:
>
> 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
|