PR fortran/42597
* trans-decl.c (get_proc_pointer_decl): Fix call to
gfc_conv_initializer for array-valued proc-pointer funcs.
2010-01-07 Tobias Burnus <burnus@net-b.de>
PR fortran/42597
* gfortran.dg/proc_ptr_26.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155688
138bc75d-0d04-0410-961f-
82ee72b054a4
2010-01-07 Tobias Burnus <burnus@net-b.de>
+ PR fortran/42597
+ * trans-decl.c (get_proc_pointer_decl): Fix call to
+ gfc_conv_initializer for array-valued proc-pointer funcs.
+
+2010-01-07 Tobias Burnus <burnus@net-b.de>
+
PR fortran/41872
* trans-decl.c (gfc_trans_deferred_vars): Don't initialize
allocatable scalars with SAVE attribute.
{
/* Add static initializer. */
DECL_INITIAL (decl) = gfc_conv_initializer (sym->value, &sym->ts,
- TREE_TYPE (decl), sym->attr.dimension, sym->attr.proc_pointer);
+ TREE_TYPE (decl),
+ sym->attr.proc_pointer ? false : sym->attr.dimension,
+ sym->attr.proc_pointer);
}
attributes = add_attributes_to_decl (sym->attr, NULL_TREE);
2010-01-07 Tobias Burnus <burnus@net-b.de>
+ PR fortran/42597
+ * gfortran.dg/proc_ptr_26.f90: New test.
+
+2010-01-07 Tobias Burnus <burnus@net-b.de>
+
PR fortran/41872
* gfortran.dg/allocatable_scalar_7.f90: New test.
--- /dev/null
+! { dg-do run }
+!
+! PR fortran/42597
+!
+! Contributed by mrestelli@gmail.com
+!
+
+module mod_a
+ implicit none
+
+ abstract interface
+ pure function intf(x) result(y)
+ real, intent(in) :: x(:,:)
+ real :: y(size(x,1),size(x,1),size(x,2))
+ end function intf
+ end interface
+
+ procedure(intf), pointer :: p_fun => null()
+end module mod_a
+
+program main
+ use mod_a
+ implicit none
+
+ procedure(intf), pointer :: p_fun2 => null()
+
+ if (associated(p_fun) .or. associated(p_fun2)) &
+ call abort ()
+end program main
+
+! { dg-final { cleanup-modules "mod_a" } }