diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2006-05-25 14:47:08 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-05-25 12:47:08 +0000 |
| commit | 71d4afdc0e3fb455d87fa0c3da0ebdd4400231a6 (patch) | |
| tree | cb64ab226b2bc3dd351dc31bfa84122170b8d1c8 | |
| parent | 2d60e929a169691cc5b5ac520364a9002af0c7cd (diff) | |
| download | gcc-71d4afdc0e3fb455d87fa0c3da0ebdd4400231a6.zip gcc-71d4afdc0e3fb455d87fa0c3da0ebdd4400231a6.tar.gz gcc-71d4afdc0e3fb455d87fa0c3da0ebdd4400231a6.tar.bz2 | |
associated (associated): Zero-sized arrays should not be reported as ASSOCIATED.
* intrinsics/associated (associated): Zero-sized arrays should
not be reported as ASSOCIATED.
From-SVN: r114113
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/intrinsics/associated.c | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 6c45e0a..3298e77 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2006-05-25 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + * intrinsics/associated (associated): Zero-sized arrays should + not be reported as ASSOCIATED. + 2006-05-24 Carlos O'Donell <carlos@codesourcery.com> * Makefile.am: Add install-html target. Add install-html to .PHONY diff --git a/libgfortran/intrinsics/associated.c b/libgfortran/intrinsics/associated.c index ac10d7c..1a05f20 100644 --- a/libgfortran/intrinsics/associated.c +++ b/libgfortran/intrinsics/associated.c @@ -52,6 +52,8 @@ associated (const gfc_array_void *pointer, const gfc_array_void *target) if ((pointer->dim[n].ubound - pointer->dim[n].lbound) != (target->dim[n].ubound - target->dim[n].lbound)) return 0; + if (pointer->dim[n].ubound < pointer->dim[n].lbound) + return 0; } return 1; |