* 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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8fd316a..017282e 100644 (file)
--- 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 15f76c5..0c0634b 100644 (file)
--- 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];