g77 bug with const argument

["Steven G. Kargl" <kargl at troutmask dot apl dot washington dot edu>]

Example code (btw, this is not my code):

        subroutine b(a)
        a = 10.
        return
        end

        program main
        write(*,*) 1.
        call b(1.)
        write(*,*) 1.
        end

troutmask:kargl[228] f77 -v -o b b.f
g77 version egcs-2.91.66 19990314 (egcs-1.1.2 release)
(from FSF-g77 version 0.5.24-19981002)
[delete rest of verbose output]

troutmask:kargl[229] b
  1.
Bus error (core dumped)


The syntax of the above program is correct Fortran 77 (at
least FTNCHEK does not report any syntax errors).  However,
one can argue that the semantics of the language are being
abused.


-- 
Steve