OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Schlüter 2004-05-27 15:05:23 +02:00 committed by Tobias Schlüter
parent baf8706c69
commit 08fb03fdf3
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -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.

12
libgfortran/intrinsics/associated.c
View File

@ -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;
}