diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-27 13:05:23 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-27 13:05:23 +0000 |
| commit | 62aeabf13fd23f8fd438a6e2d247e7ab47ecbb83 (patch) | |
| tree | 4afd75ff388c47a82bbdf16585c7a3384f56e572 /libgfortran | |
| parent | 918de27680428c0787343e0e38367a9e6ea89de5 (diff) | |
| download | gcc-62aeabf13fd23f8fd438a6e2d247e7ab47ecbb83.tar.gz | |
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
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 <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 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; } |