PR fortran/30202
* trans-array.c (gfc_conv_function_call): Use parmse.expr for
the nullifying of intent(out) arguments rather than the backend
declaration.
2006-12-21 Paul Thomas <pault@gcc.gnu.org>
PR fortran/30202
* gfortran.dg/alloc_comp_basics_3.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120109
138bc75d-0d04-0410-961f-
82ee72b054a4
+2006-12-21 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/30202
+ * trans-array.c (gfc_conv_function_call): Use parmse.expr for
+ the nullifying of intent(out) arguments rather than the backend
+ declaration.
+
2006-12-20 Tobias Schl\81üter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/25392
if (fsym && fsym->attr.allocatable
&& fsym->attr.intent == INTENT_OUT)
{
- tmp = e->symtree->n.sym->backend_decl;
- if (e->symtree->n.sym->attr.dummy)
- tmp = build_fold_indirect_ref (tmp);
+ tmp = build_fold_indirect_ref (parmse.expr);
tmp = gfc_trans_dealloc_allocated (tmp);
gfc_add_expr_to_block (&se->pre, tmp);
}
+2006-12-21 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/30202
+ * gfortran.dg/alloc_comp_basics_3.f90: New test.
+
2006-12-21 Jakub Jelinek <jakub@redhat.com>
PR middle-end/30262
--- /dev/null
+! { dg-do compile }
+! Test the patch for PR30202 in which the INTENT(OUT)
+! caused an ICE.
+!
+! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
+!
+program class_scal_p
+ implicit none
+ type scal_p
+ real, allocatable :: b(:)
+ end type scal_p
+ type(scal_p) :: pd
+ call psb_geallv(pd%b)
+contains
+ subroutine psb_geallv(x)
+ real, allocatable, intent(out) :: x(:)
+ end subroutine psb_geallv
+end program class_scal_p