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: gs...@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)
