[Bug fortran/34655] New: 5.5.2.5

[Bug fortran/34655] New: 5.5.2.5

[jv244 at cam dot ac dot uk]

The following is non-standard and the compiler should probably generate a
warning/error with '-pedantic -std=f95', but does not do so with
gcc version 4.3.0 20080103 (experimental) [trunk revision 131300] (GCC)

! 5.5.2.5
TYPE data_type
 SEQUENCE
 INTEGER :: I=7
END TYPE data_type
INTEGER :: J
TYPE(data_type) :: dd
COMMON /COM/ J
EQUIVALENCE(dd,J)
END


-- 
           Summary:  5.5.2.5
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jv244 at cam dot ac dot uk


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

[Bug fortran/34655] 5.5.2.5

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2008-01-04 07:32 -------
No error with ifort/NAG f95; g95 has:
  Error: Derived variable 'dd' in EQUIVALENCE at (1) contains a component with
a default initialization in a COMMON block

Lahey has:
Common block object 'dd' must not be of type for which default initialization
specified.


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2008-01-04 07:32:48
               date|                            |


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

[Bug fortran/34655] 5.5.2.5

[burnus at gcc dot gnu dot org]

------- Comment #2 from burnus at gcc dot gnu dot org  2008-01-06 18:08 -------
Subject: Bug 34655

Author: burnus
Date: Sun Jan  6 18:07:52 2008
New Revision: 131353

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=131353
Log:
2008-01-06  Tobias Burnus  <burnus@net-b.de>

        PR fortran/34655
        * resolve.c (resolve_equivalence_derived): Reject derived types
        * with
        default initialization if equivalenced with COMMON variable.

2008-01-06  Tobias Burnus  <burnus@net-b.de>

        PR fortran/34655
        * gfortran.dg/equiv_constraint_9.f90: New.


Added:
    trunk/gcc/testsuite/gfortran.dg/equiv_constraint_9.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/34655] 5.5.2.5

[burnus at gcc dot gnu dot org]

------- Comment #3 from burnus at gcc dot gnu dot org  2008-01-06 18:13 -------
FIXED on the trunk (4.3.0).

Patch: http://gcc.gnu.org/ml/gcc-patches/2008-01/msg00202.html


-- 

burnus at gcc dot gnu dot org changed:

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


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