Commit 08fb03fd by Tobias Schlüter Committed by Tobias Schlüter

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
parent baf8706c
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> 2004-05-23 Steven G. Kargl <kargls@comcast.net>
* random.c (random_seed): Use correct variable. * random.c (random_seed): Use correct variable.
......
...@@ -23,8 +23,6 @@ Boston, MA 02111-1307, USA. */ ...@@ -23,8 +23,6 @@ Boston, MA 02111-1307, USA. */
#define associated prefix(associated) #define associated prefix(associated)
enum { FALSE = 0, TRUE = 1 };
GFC_LOGICAL_4 GFC_LOGICAL_4
associated (const gfc_array_void *pointer, const gfc_array_void *target) 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) ...@@ -32,19 +30,19 @@ associated (const gfc_array_void *pointer, const gfc_array_void *target)
int n, rank; int n, rank;
if (GFC_DESCRIPTOR_DATA (pointer) != GFC_DESCRIPTOR_DATA (target)) if (GFC_DESCRIPTOR_DATA (pointer) != GFC_DESCRIPTOR_DATA (target))
return FALSE; return 0;
if (GFC_DESCRIPTOR_DTYPE (pointer) != GFC_DESCRIPTOR_DTYPE (target)) if (GFC_DESCRIPTOR_DTYPE (pointer) != GFC_DESCRIPTOR_DTYPE (target))
return FALSE; return 0;
rank = GFC_DESCRIPTOR_RANK (pointer); rank = GFC_DESCRIPTOR_RANK (pointer);
for (n = 0; n < rank; n++) for (n = 0; n < rank; n++)
{ {
if (pointer->dim[n].stride != target->dim[n].stride) if (pointer->dim[n].stride != target->dim[n].stride)
return FALSE; return 0;
if ((pointer->dim[n].ubound - pointer->dim[n].lbound) if ((pointer->dim[n].ubound - pointer->dim[n].lbound)
!= (target->dim[n].ubound - target->dim[n].lbound)) != (target->dim[n].ubound - target->dim[n].lbound))
return FALSE; return 0;
} }
return TRUE; return 1;
} }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment