* trans-types.c (MAX_REAL_KINDS): Increase from 4 to 5.

From-SVN: r102034

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8fd316abb0f22dd87a010921f27dea5a8226b632..017282ec71a042828e64b6fa2c0ce3358981fc74 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 15f76c589eb1711bdd2bb6ee1533a420348c3cb2..0c0634b5ef03f6b57476427832ecfcf836616b5f 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];