re PR fortran/30683 ([4.2 only] internal compiler error: Segmentation fault)
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. From-SVN: r121531
This commit is contained in:
parent
86ad1da0d3
commit
2e6524ba30
|
@ -1,3 +1,8 @@
|
|||
2007-02-02 Steven G. Kargl <kargl@gcc.gnu.org>
|
||||
|
||||
PR fortran/30683
|
||||
* resolve.c (resolve_generic_f): Check for non-NULL sym.
|
||||
|
||||
2007-02-02 Roger Sayle <roger@eyesopen.com>
|
||||
|
||||
* trans.c (gfc_build_array_ref): Use STRIP_TYPE_NOPS to eliminate
|
||||
|
|
|
@ -1315,7 +1315,7 @@ generic:
|
|||
|
||||
/* Last ditch attempt. See if the reference is to an intrinsic
|
||||
that possesses a matching interface. 14.1.2.4 */
|
||||
if (!gfc_intrinsic_name (sym->name, 0))
|
||||
if (sym && !gfc_intrinsic_name (sym->name, 0))
|
||||
{
|
||||
gfc_error ("There is no specific function for the generic '%s' at %L",
|
||||
expr->symtree->n.sym->name, &expr->where);
|
||||
|
|
|
@ -1,3 +1,8 @@
|
|||
2007-02-02 Steven G. Kargl <kargl@gcc.gnu.org>
|
||||
|
||||
PR fortran/30683
|
||||
* gfortran.dg/interface_10.f90: New test.
|
||||
|
||||
2007-02-02 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
|
||||
|
||||
* gcc.dg/builtins-20.c: Add more cases.
|
||||
|
|
|
@ -0,0 +1,57 @@
|
|||
! { 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
|
||||
contains
|
||||
function get_fld_size(f)
|
||||
integer :: get_fld_size(2)
|
||||
type(fld), intent(in) :: f
|
||||
get_fld_size(int_) = f%size(int_)
|
||||
get_fld_size(bnd_) = f%size(bnd_)
|
||||
end function get_fld_size
|
||||
end module class_fld
|
||||
|
||||
module class_s_fld
|
||||
use class_fld
|
||||
type s_fld
|
||||
type(fld) :: base
|
||||
real(kind(1.d0)), pointer :: x(:) => null()
|
||||
end type s_fld
|
||||
interface x_
|
||||
module procedure get_s_fld_x
|
||||
end interface
|
||||
contains
|
||||
function get_s_fld_x(fld)
|
||||
real(kind(1.d0)), pointer :: get_s_fld_x(:)
|
||||
type(s_fld), intent(in) :: fld
|
||||
get_s_fld_x => fld%x
|
||||
end function get_s_fld_x
|
||||
end module class_s_fld
|
||||
|
||||
module class_s_foo
|
||||
contains
|
||||
subroutine solve_s_foo(phi,var)
|
||||
use class_s_fld
|
||||
type(s_fld), intent(inout) :: phi
|
||||
real(kind(1.d0)), intent(out), optional :: var
|
||||
integer :: nsz
|
||||
real(kind(1.d0)), pointer :: x(:)
|
||||
x => x_(phi)
|
||||
nsz=size(x)
|
||||
end subroutine solve_s_foo
|
||||
end module class_s_foo
|
||||
! { dg-final { cleanup-modules "class_s_fld class_fld class_s_foo" } }
|
Loading…
Reference in New Issue