[Bug fortran/18872] New: [g77 regression] Equivalencing two common blocks is not caught

Thomas dot Koenig at online dot de gcc-bugzilla@gcc.gnu.org
Tue Dec 7 15:39:00 GMT 2004


$ cat common-2.f
      program main
      common /foo/ a
      common /bar/ b
      equivalence (a,c)
      equivalence (b,c)
      c=3.
      print *,a
      print *,b
      end
$ gfortran common-2.f && ./a.out
   3.000000
   3.000000
$ gfortran -v
Reading specs from /home/zfkts/lib/gcc/ia64-unknown-linux-gnu/4.0.0/specs
Configured with: ../gcc-4.0-20041205/configure --prefix=/home/zfkts
--enable-languages=c,c++,f95 --disable-shared
Thread model: posix
gcc version 4.0.0 20041205 (experimental)
$ g77 common-2.f
common-2.f: In program `main':
common-2.f:5:
         equivalence (b,c)
                      ^
Attempt to EQUIVALENCE common areas `foo' and `bar' at (^)

-- 
           Summary: [g77 regression] Equivalencing two common blocks is not
                    caught
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Thomas dot Koenig at online dot de
                CC: gcc-bugs at gcc dot gnu dot org


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



More information about the Gcc-bugs mailing list