[Bug fortran/34292] fortran initialization code does not compile

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2007-11-29 15:08 -------
This is an internal compiler error on invalid code.

        REAL ::X(2,2)=0. 
        DATA (( X(I,J), I=1,2), J=1,2) / 4*0. /

You initialize the variable X twice, which is not allowed according to the
Fortran standard (although some compiler accept it using the default options).
You have to use either:

        REAL :: X(2,2) = 0.0
or
        REAL :: X(2,2)
        DATA (( X(I,J), I=1,2), J=1,2) / 4*0. /

Either of the two versions work here with gfortran 4.1.x, 4.2.x and 4.3.0.

The internal compiler error is fixed in gfortran 4.3.0, which shows the
following error message:


aaa.f90:5.17:
        DATA (( X(I,J), I=1,2), J=1,2) / 4*4. /
                1
aaa.f90:3.23:
        REAL ::X(2,2) =0.
                      2
Error: 'x' at (1) already is initialized at (2)

I therefore close this bug.


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |burnus at gcc dot gnu dot
                   |                            |org
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |WORKSFORME


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34292