diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-05-27 15:05:23 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-05-27 15:05:23 +0200 |
| commit | 08fb03fdf38f9055a55007ab4782561ba48f1b04 (patch) | |
| tree | 4afd75ff388c47a82bbdf16585c7a3384f56e572 /libgfortran/intrinsics | |
| parent | baf8706c69b80fbf100bdb854d96d1d19bb1ad52 (diff) | |
| download | gcc-08fb03fdf38f9055a55007ab4782561ba48f1b04.tar.gz | |
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
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/associated.c | 12 |
1 files changed, 5 insertions, 7 deletions
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; } |