[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