diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-25 12:47:08 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-25 12:47:08 +0000 |
| commit | 55bbde52c2a1997507e71908717e778cd48d6fb4 (patch) | |
| tree | cb64ab226b2bc3dd351dc31bfa84122170b8d1c8 /libgfortran/intrinsics/associated.c | |
| parent | 2b2c6e116ecc7709a62e0f687415ee9f6843223e (diff) | |
| download | gcc-55bbde52c2a1997507e71908717e778cd48d6fb4.tar.gz | |
* intrinsics/associated (associated): Zero-sized arrays should
not be reported as ASSOCIATED.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114113 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics/associated.c')
| -rw-r--r-- | libgfortran/intrinsics/associated.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/associated.c b/libgfortran/intrinsics/associated.c index ac10d7ce7fe..1a05f20072b 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; |