[gfortran,patch] PR 15809, part 1

[Erik Edelmann]

eedelman@acclab.helsinki.fi wrote:
> :ADDPATCH <fortran>:
> 
> The attached patch fixes one of the two bugs in 15809.

Sorry, forgot to actually attach the patch.


        Erik
-------------- next part --------------
Index: gcc/fortran/trans-array.c
===================================================================
RCS file: /cvsroot/gcc/gcc/gcc/fortran/trans-array.c,v
retrieving revision 1.55
diff -u -p -r1.55 trans-array.c
--- gcc/fortran/trans-array.c	27 Aug 2005 11:28:51 -0000	1.55
+++ gcc/fortran/trans-array.c	31 Aug 2005 17:45:28 -0000
@@ -4002,7 +4002,8 @@ gfc_trans_deferred_array (gfc_symbol * s
 
   gfc_init_block (&fnblock);
 
-  gcc_assert (TREE_CODE (sym->backend_decl) == VAR_DECL);
+  gcc_assert (TREE_CODE (sym->backend_decl) == VAR_DECL
+              || TREE_CODE (sym->backend_decl) == PARM_DECL);
   if (sym->ts.type == BT_CHARACTER
       && !INTEGER_CST_P (sym->ts.cl->backend_decl))
     gfc_trans_init_string_length (sym->ts.cl, &fnblock);
-------------- next part --------------
! { dg-do compile }
! Part of PR 15809
SUBROUTINE A(p,LEN)
    CHARACTER(LEN=LEN), DIMENSION(:), POINTER :: p
    IF ( .NOT. ASSOCIATED(p) ) THEN
    END IF
END SUBROUTINE A