From c6cc55644113554b46b5886bce91aece38e3763d Mon Sep 17 00:00:00 2001 From: sje Date: Thu, 14 Jul 2005 21:13:18 +0000 Subject: [PATCH] * trans-types.c (MAX_REAL_KINDS): Increase from 4 to 5. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102034 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 8fd316abb0f..017282ec71a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2005-07-14 Steve Ellcey + + * trans-types.c (MAX_REAL_KINDS): Increase from 4 to 5. + 2005-07-14 Jakub Jelinek * gfortran.h (MAX_ERROR_MESSAGE): Remove. diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 15f76c589eb..0c0634b5ef0 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]; -- 2.11.4.GIT