diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2005-05-12 20:19:37 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-05-12 20:19:37 +0200 |
| commit | 4588b60480b8f66f78a56cb43d6813af76f9a29f (patch) | |
| tree | ea105db4ae780032d112a8d3388a11f1c44e3e82 | |
| parent | c42a19d5e3a8236af3b727cd708bac22a8608b9d (diff) | |
| download | gcc-4588b60480b8f66f78a56cb43d6813af76f9a29f.zip gcc-4588b60480b8f66f78a56cb43d6813af76f9a29f.tar.gz gcc-4588b60480b8f66f78a56cb43d6813af76f9a29f.tar.bz2 | |
* trans-types.c (gfc_is_nodesc_array): Remove redundant check.
From-SVN: r99621
| -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; |