diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 6c45e0ae7b4c..3298e77dc6c9 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 ac10d7ce7fec..1a05f20072bc 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;