From e8f35d4dc7ee49c5570aefcb53931aa30b30e70b Mon Sep 17 00:00:00 2001 From: Steve Ellcey <sje@cup.hp.com> Date: Thu, 14 Jul 2005 21:13:18 +0000 Subject: [PATCH] * trans-types.c (MAX_REAL_KINDS): Increase from 4 to 5. From-SVN: r102034 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/trans-types.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8fd316abb0f2..017282ec71a0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2005-07-14 Steve Ellcey <sje@cup.hp.com> + + * trans-types.c (MAX_REAL_KINDS): Increase from 4 to 5. + 2005-07-14 Jakub Jelinek <jakub@redhat.com> * gfortran.h (MAX_ERROR_MESSAGE): Remove. diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 15f76c589eb1..0c0634b5ef03 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -70,7 +70,7 @@ gfc_logical_info gfc_logical_kinds[MAX_INT_KINDS + 1]; static GTY(()) tree gfc_integer_types[MAX_INT_KINDS + 1]; static GTY(()) tree gfc_logical_types[MAX_INT_KINDS + 1]; -#define MAX_REAL_KINDS 4 +#define MAX_REAL_KINDS 5 gfc_real_info gfc_real_kinds[MAX_REAL_KINDS + 1]; static GTY(()) tree gfc_real_types[MAX_REAL_KINDS + 1]; static GTY(()) tree gfc_complex_types[MAX_REAL_KINDS + 1]; -- GitLab