[Bug fortran/13742] New: Not Implemented: initial values for COMMON or EQUIVALENCE

[Bug fortran/13742] New: Not Implemented: initial values for COMMON or EQUIVALENCE

[lei at il dot ibm dot com]

While there are many unimplemented features, this one is special
because it prevents compiling a SPEC2000 benchmark (facerec). 

% cat foo.f90
        PROGRAM
          INTEGER :: X = 123
          INTEGER :: Y
          EQUIVALENCE (X,Y)
          PRINT *, X
        END PROGRAM

% gfortran foo.f90 
foo.f90: In function `MAIN__':
foo.f90:6: fatal error: gfc_todo: Not Implemented: initial values for COMMON or
EQUIVALENCE
compilation terminated.

-- 
           Summary: Not Implemented: initial values for COMMON or
                    EQUIVALENCE
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: lei at il dot ibm dot com
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


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

[Bug fortran/13742] [gfortran] Not Implemented: initial values for COMMON or EQUIVALENCE

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-01-19 15:31 -------
Already known, confirmed.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
           Keywords|                            |ice-on-valid-code
   Last reconfirmed|0000-00-00 00:00:00         |2004-01-19 15:31:41
               date|                            |
            Summary|Not Implemented: initial    |[gfortran] Not Implemented:
                   |values for COMMON or        |initial values for COMMON or
                   |EQUIVALENCE                 |EQUIVALENCE
   Target Milestone|---                         |tree-ssa


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

[Bug fortran/13742] [gfortran] Not Implemented: initial values for COMMON or EQUIVALENCE

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-05-05 06:57 -------
Patch here: <http://gcc.gnu.org/ml/gcc-patches/2004-05/msg00219.html>.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |patch


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

[Bug fortran/13742] [gfortran] Not Implemented: initial values for COMMON or EQUIVALENCE

[lei at il dot ibm dot com]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |lei at il dot ibm dot com
                   |dot org                     |
             Status|NEW                         |ASSIGNED


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

[Bug fortran/13742] [gfortran] Not Implemented: initial values for COMMON or EQUIVALENCE

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2004-05-15 20:29 -------
Subject: Bug 13742

CVSROOT:	/cvs/gcc
Module name:	gcc
Changes by:	tobi@gcc.gnu.org	2004-05-15 20:29:07

Modified files:
	gcc/fortran    : ChangeLog decl.c match.c 

Log message:
	PR fortran/13742
	* decl.c (add_init_expr_to_sym): Verify that COMMON variable is
	not initialized in a disallowed fashion.
	* match.c (gfc_match_common): Likewise.
	(var_element): Verify that variable is not in the blank COMMON,
	if it is in a common.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&r1=1.21&r2=1.22
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/decl.c.diff?cvsroot=gcc&r1=1.5&r2=1.6
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/match.c.diff?cvsroot=gcc&r1=1.7&r2=1.8



-- 


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

[Bug fortran/13742] [gfortran] Not Implemented: initial values for COMMON or EQUIVALENCE

[pinskia at gcc dot gnu dot org]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
OtherBugsDependingO|                            |15502
              nThis|                            |


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

[Bug fortran/13742] [gfortran] Not Implemented: initial values for COMMON or EQUIVALENCE

[pbrook at gcc dot gnu dot org]

------- Additional Comments From pbrook at gcc dot gnu dot org  2004-05-23 15:16 -------
Fixed, although some more complicated cases are still not implemented. 

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED


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