From 08fb03fdf38f9055a55007ab4782561ba48f1b04 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Thu, 27 May 2004 15:05:23 +0200 Subject: [PATCH] re PR libfortran/15234 (libgfortran doesn't compile on Tru64 UNIX V4.0F) PR fortran/15234 * intrinsics/associated.c: Remove enum. (associated): Replace TRUE/FALSE by 1/0. From-SVN: r82322 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/intrinsics/associated.c | 12 +++++------- 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index edf4919f3b7..a72caeabc95 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2004-05-27 Tobias Schlueter + + PR fortran/15234 + * intrinsics/associated.c: Remove enum. + (associated): Replace TRUE/FALSE by 1/0. + 2004-05-23 Steven G. Kargl * random.c (random_seed): Use correct variable. diff --git a/libgfortran/intrinsics/associated.c b/libgfortran/intrinsics/associated.c index ba52a205d12..e7805f1ee13 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; } -- 2.30.2