There does not seem to be any check in procedure calls that an external symbol
is not a common block.
[EMAIL PROTECTED] mytests]# cat horrible.f90
program horrible
integer a(10)
common /foo/ a
call foo ()
end program [EMAIL PROTECTED] mytests]# /gcc-4.1/bin/gfortran horrible.f90
[EMAIL PROTECTED] mytests]# ./a.out
Segmentation fault
--
Summary: named common block confused as procedure - runtime
segfault
Product: gcc
Version: 4.1.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: pault at gcc dot gnu dot org
CC: gcc-bugs at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23308
