Jean:
Both of your programs look OK. I tried them both with Lahey/Fujitsu for
Linux version 6.10c. The compiler didn't complain, and they both got
the results I expected.
Best regards,
Van Snyder
>
> 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
>
|