From 04d822b8d4f6221888e67925808b18e35e880532 Mon Sep 17 00:00:00 2001 From: tobi Date: Thu, 12 May 2005 18:19:37 +0000 Subject: [PATCH] * trans-types.c (gfc_is_nodesc_array): Remove redundant check. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@99621 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/trans-types.c | 3 --- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 98d9bb3..57fac56 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2005-05-12 Tobias Schl"uter + + * trans-types.c (gfc_is_nodesc_array): Remove redundant check. + 2005-05-11 Tobias Schl"uter PR fortran/21260 diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index b2c5169..44f19f4 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -785,9 +785,6 @@ gfc_is_nodesc_array (gfc_symbol * sym) if (sym->attr.result || sym->attr.function) return 0; - if (sym->attr.pointer || sym->attr.allocatable) - return 0; - gcc_assert (sym->as->type == AS_EXPLICIT); return 1; -- 2.7.4