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

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

gcc/fortran/ChangeLog

+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

gcc/fortran/trans-array.c

@@ -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))

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/proc_ptr_comp_40.f90

+! { 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