diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <tobias.schlueter@physik.uni-muenchen.de> + + * trans-types.c (gfc_is_nodesc_array): Remove redundant check. + 2005-05-11 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> 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; |