system_

[Joe Griffin <joe dot griffin at mscsoftware dot com>]

Hello,
 
I am not sure if this is a bug or not.  The
following program crashes with g77:
 
<20> cat aa.f
       parameter (n=50)
       common /system/ i(n)
       do 10 j=1, n
          i(j) = j
   10  continue
       end
 
<21> g77 -fno-globals aa.f
/usr/bin/ld: Warning: size of symbol `system_' changed from 200 to 26 in
Lsystem.o
/usr/bin/ld: Warning: type of symbol `system_' changed from 1 to 2 in
Lsystem.o
 
<22> a.out
Segmentation fault
 
 
common/system/ gets defined at compile time as "system_":
 
<24> nm aa.o
00000000 T MAIN__
00000000 t gcc2_compiled.
         U s_stop
000000c8 C system_
 
But system_ gets redefined in the link.  I can get the
code to work by adding -fcase-upper, but because I am linking
with other objects, I require the symbols to be lowercase w/
trailing underscores.
 
I have tried several of the '*intrinsics-disable'
options, but have been unsuccessful.
 
Is there an option that I can use to compile this
program?  (I cannot change the common block name either.)
 
 
The problem exists on:
RH 7.0    gcc-g77-2.96-54
RH 6.1    pgcc-2.95.3
MSC.Linux ecgs 2.95.3
MSC.Linux ecgs 2.95.2
 
The problem does NOT exist on:
RH 6.0    egcs-2.91.66
 
Thanks,
Joe Griffin