procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/69603 (ICE: segfault with -fimplicit-none and proc_ptr_comp_24.f90)

Browse source 
2016-05-15  Harald Anlauf  <anlauf@gmx.de>

	PR fortran/69603
	* interface.c (compare_parameter): Check for non-NULL pointer.

2016-05-15  Harald Anlauf  <anlauf@gmx.de>

	PR fortran/69603
	* gfortran.dg/pr69603.f90: New testcase.

From-SVN: r236253
This commit is contained in:
Harald Anlauf 2016-05-15 18:34:57 +00:00 • committed by Steven G. Kargl
parent 3a33c74b35
commit 228eb42aab
4 changed files with 27 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View file

@ -1,3 +1,8 @@
2016-05-15 Harald Anlauf <anlauf@gmx.de>
PR fortran/69603
* interface.c (compare_parameter): Check for non-NULL pointer.
2016-05-14 Fritz Reese <fritzoreese@gmail.com>
* gfortran.texi: Update example of DEC UNION extension.

2
gcc/fortran/interface.c
View file

@ -2113,7 +2113,7 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual,
}
ppc = gfc_get_proc_ptr_comp (actual);
if (ppc)
if (ppc && ppc->ts.interface)
{
if (!gfc_compare_interfaces (formal, ppc->ts.interface, ppc->name, 0, 1,
err, sizeof(err), NULL, NULL))

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2016-05-15 Harald Anlauf <anlauf@gmx.de>
PR fortran/69603
* gfortran.dg/pr69603.f90: New testcase.
2016-05-14 Fritz Reese <fritzoreese@gmail.com>
* gfortran.dg/dec_union_4.f90: Fix endian issue.

16
gcc/testsuite/gfortran.dg/pr69603.f90 Normal file
View file

@ -0,0 +1,16 @@
! { dg-do compile }
! { dg-options "-fimplicit-none" }
! PR fortran/69603 - segfault with -fimplicit-none and proc_ptr_comp_24.f90
! Based on reduced testcase by Dominique d'Humieres
PROGRAM prog
implicit none
TYPE object
PROCEDURE(), POINTER, NOPASS :: f
END TYPE object
TYPE (object) :: o1
CALL set_func(o1%f)
CONTAINS
SUBROUTINE set_func(f)
PROCEDURE(), POINTER :: f
END SUBROUTINE set_func
END PROGRAM prog