mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 17:21:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/64173 ([F03] ICE involving procedure pointer component)

Browse Source 
2014-12-17  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/64173
	* trans-array.c (structure_alloc_comps): Do not nullify procedure
	pointer components.

2014-12-17  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/64173
	* gfortran.dg/proc_ptr_comp_40.f90: New.

From-SVN: r218834
This commit is contained in:
Janus Weil 2014-12-17 22:12:42 +01:00
parent 6c0c245e30
commit f4e2df8970
4 changed files with 38 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2014-12-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/64173
* trans-array.c (structure_alloc_comps): Do not nullify procedure
pointer components.
2014-12-17 Pierre-Marie de Rodat <derodat@adacore.com>
* trans-types.c (gfc_get_array_descr_info): Describe all Fortran arrays

2
gcc/fortran/trans-array.c
View File

@ -7774,7 +7774,7 @@ structure_alloc_comps (gfc_symbol * der_type, tree decl,
break;
case NULLIFY_ALLOC_COMP:
if (c->attr.pointer)
if (c->attr.pointer || c->attr.proc_pointer)
continue;
else if (c->attr.allocatable
&& (c->attr.dimension|| c->attr.codimension))

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2014-12-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/64173
* gfortran.dg/proc_ptr_comp_40.f90: New.
2014-12-17 H.J. Lu <hongjiu.lu@intel.com>
PR target/61296

26
gcc/testsuite/gfortran.dg/proc_ptr_comp_40.f90 Normal file
View File

@ -0,0 +1,26 @@
! { dg-do compile }
!
! PR 64173: [F03] ICE involving procedure pointer component
!
! Contributed by Rich Townsend <townsend@astro.wisc.edu>
implicit none
type :: r_magnus_ivp_t
integer, allocatable :: jc
procedure(abscissa_), nopass, pointer :: abscissa_p
end type
abstract interface
function abscissa_ () result (x)
real, allocatable :: x(:)
end function
end interface
contains
function doinit () result (iv)
type(r_magnus_ivp_t) :: iv
end function
end