[Bug fortran/15641] New: [gfortran] multiple equivalences do not work

["bdavis9659 at comcast dot net" <gcc-bugzilla at gcc dot gnu dot org>]

$ cat g.f
      COMMON ICOE01, RCOE01
      EQUIVALENCE (ICOE01,ICOE02,ICOE03,ICOE04), (RCOE01,RCOE02,RCOE03)
      RCOE01 = 1
      RCOE02 = 2
      RCOE03 = 3
      ICOE01 = 1
      ICOE02 = 2
      ICOE03 = 3
      ICOE04 = 4
      PRINT*,RCOE01,RCOE02,RCOE03
      PRINT*,ICOE01,ICOE02,ICOE03,ICOE04
      END
$ gfortran g.f
$ ./a.out
   1.000000       2.000000       3.000000
           1           2           3           4
$ g77 g.f
$ ./a.out
  3.  3.  3.
 4 4 4 4
$ gfortran --version
GNU Fortran 95 (GCC 3.5.0 20040524 (experimental))



from FM023.FOR of NIST F77 validation suite.

-- 
           Summary: [gfortran] multiple equivalences do not work
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis9659 at comcast dot net
                CC: gcc-bugs at gcc dot gnu dot org


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