[Fortran, committed] Fix PR fortran/30683
Brooks Moses
brooks.moses@codesourcery.com
Wed Feb 14 10:02:00 GMT 2007
(I just realized I started this reply a while ago and never got around
to finishing it; sorry about that.)
Steve Kargl wrote:
> I've committed the attached patch under the obviously
> correct rule.
>
> 2007-02-02 Steven G. Kargl <kargl@gcc.gnu.org>
>
> PR fortran/30683
> * resolve.c (resolve_generic_f): Check for non-NULL sym.
> * gfortran.dg/interface_10.f90: New test.
[...]
> ! { dg-do compile }
> ! PR fortran/30683
> ! Code contributed by Salvatore Filippone.
> !
> module class_fld
> integer, parameter :: int_ = 1
> integer, parameter :: bnd_ = 2
> type fld
> integer :: size(2)
> end type fld
> !
> ! This interface is renaming the SIZE intrinsic procedure,
> ! which led to a segmentation fault when trying to resolve
> ! the intrinsic symbol name.
> !
> interface size
> module procedure get_fld_size
> end interface
A quibble with the comment: This isn't renaming the SIZE intrinsic
procedure at all; it's extending it (or, alternately, overloading it).
- Brooks
More information about the Fortran
mailing list