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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 6c45e0ae7b4ccc77b7666446085ed0ea57deecc3..3298e77dc6c9e105cd4e0c5610624f57a6f5efae 100644 (file)
--- 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 ac10d7ce7fecd33f41037ce42e8a4f95bb3543bb..1a05f20072bca00146e4330919dc1f46ae742ba9 100644 (file)
--- 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;