[Bug fortran/95106] New: Bogus warning from module with long name and an equivalence

[gscfq@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95106

            Bug ID: 95106
           Summary: Bogus warning from module with long name and an
                    equivalence
           Product: gcc
           Version: 11.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Name length 59 ok, suspicious warning for 60..63 :


$ cat z1_59.f90
module m2345678901234567890123456789012345678901234567890123456789
   real :: a(4), u(3,2)
   real :: b(4), v(4,2)
   equivalence (a(1),u(1,1)), (b(1),v(1,1))
end


$ cat z1_60.f90
module m23456789012345678901234567890123456789012345678901234567890
   real :: a(4), u(3,2)
   real :: b(4), v(4,2)
   equivalence (a(1),u(1,1)), (b(1),v(1,1))
end


$ cat z1_63.f90
module m23456789012345678901234567890123456789012345678901234567890123
   real :: a(4), u(3,2)
   real :: b(4), v(4,2)
   equivalence (a(1),u(1,1)), (b(1),v(1,1))
end


$ gfortran-11-20200510 -c z1_59.f90
$
$ gfortran-11-20200510 -c z1_60.f90
z1_60.f90:1:67:

    1 | module m23456789012345678901234567890123456789012345678901234567890
      |                                                                   1
Warning: Named COMMON block
'm23456789012345678901234567890123456789012345678901234567890.eq.1' at (1)
shall be of the same size as elsewhere (24 vs 32 bytes)