From 62aeabf13fd23f8fd438a6e2d247e7ab47ecbb83 Mon Sep 17 00:00:00 2001
From: tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 27 May 2004 13:05:23 +0000
Subject: [PATCH] PR fortran/15234 * intrinsics/associated.c: Remove enum.
(associated): Replace TRUE/FALSE by 1/0.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@82322 138bc75d-0d04-0410-961f-82ee72b054a4
---
libgfortran/ChangeLog | 6 ++++++
libgfortran/intrinsics/associated.c | 12 +++++-------
2 files changed, 11 insertions(+), 7 deletions(-)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index edf4919f3b77..a72caeabc954 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2004-05-27 Tobias Schlueter <tobias.shclueter@physik.uni-muenchen.de>
+
+ PR fortran/15234
+ * intrinsics/associated.c: Remove enum.
+ (associated): Replace TRUE/FALSE by 1/0.
+
2004-05-23 Steven G. Kargl <kargls@comcast.net>
* random.c (random_seed): Use correct variable.
diff --git a/libgfortran/intrinsics/associated.c b/libgfortran/intrinsics/associated.c
index ba52a205d126..e7805f1ee135 100644
--- a/libgfortran/intrinsics/associated.c
+++ b/libgfortran/intrinsics/associated.c
@@ -23,8 +23,6 @@ Boston, MA 02111-1307, USA. */
#define associated prefix(associated)
-enum { FALSE = 0, TRUE = 1 };
-
GFC_LOGICAL_4
associated (const gfc_array_void *pointer, const gfc_array_void *target)
@@ -32,19 +30,19 @@ associated (const gfc_array_void *pointer, const gfc_array_void *target)
int n, rank;
if (GFC_DESCRIPTOR_DATA (pointer) != GFC_DESCRIPTOR_DATA (target))
- return FALSE;
+ return 0;
if (GFC_DESCRIPTOR_DTYPE (pointer) != GFC_DESCRIPTOR_DTYPE (target))
- return FALSE;
+ return 0;
rank = GFC_DESCRIPTOR_RANK (pointer);
for (n = 0; n < rank; n++)
{
if (pointer->dim[n].stride != target->dim[n].stride)
- return FALSE;
+ return 0;
if ((pointer->dim[n].ubound - pointer->dim[n].lbound)
!= (target->dim[n].ubound - target->dim[n].lbound))
- return FALSE;
+ return 0;
}
- return TRUE;
+ return 1;
}
--
GitLab