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>
|
2007-02-02 Roger Sayle <roger@eyesopen.com>
|
||||||
|
|
||||||
* trans.c (gfc_build_array_ref): Use STRIP_TYPE_NOPS to eliminate
|
* 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
|
/* Last ditch attempt. See if the reference is to an intrinsic
|
||||||
that possesses a matching interface. 14.1.2.4 */
|
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",
|
gfc_error ("There is no specific function for the generic '%s' at %L",
|
||||||
expr->symtree->n.sym->name, &expr->where);
|
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>
|
2007-02-02 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
|
||||||
|
|
||||||
* gcc.dg/builtins-20.c: Add more cases.
|
* 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