From: Francois-Xavier Coudert <coudert@clipper.ens.fr>
Date: Thu, 25 May 2006 12:47:08 +0000 (+0200)
Subject: associated (associated): Zero-sized arrays should not be reported as ASSOCIATED.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=71d4afdc0e3fb455d87fa0c3da0ebdd4400231a6;p=gcc.git

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 6c45e0ae7b4..3298e77dc6c 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 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;