This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [Fortran, committed] Fix PR fortran/30683


Steve Kargl wrote:
On Wed, Feb 14, 2007 at 01:37:43AM -0800, Brooks Moses wrote:
! { 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).

Feel free to change the comment.

Heh, ok, point. :) Committed as obvious, after testing:


----------------------------------------------------------------------
2007-02-14  Brooks Moses  <brooks.moses@codesourcery.com>

* gfortran.dg/interface_10.f90: Fix comment typo.

----------------------------------------------------------------------

- Brooks
Index: gfortran.dg/interface_10.f90
===================================================================
--- gfortran.dg/interface_10.f90	(revision 121792)
+++ gfortran.dg/interface_10.f90	(working copy)
@@ -9,7 +9,7 @@
      integer                 :: size(2)
   end type fld
   !
-  !  This interface is renaming the SIZE intrinsic procedure,  
+  !  This interface is extending the SIZE intrinsic procedure,  
   !  which led to a segmentation fault when trying to resolve
   !  the intrinsic symbol name.
   !

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]