* trans-types.c (gfc_type_for_mode): Return NULL for unknown modes.

From-SVN: r86976

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index abeaaaaeb43eb167b36f637a7a3ec2af25d3a1b8..f796c850ed90c4585546207e6d5cbcb825b15557 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2004-08-31  Paul Brook  <paul@codesourcery.com>
+
+       * trans-types.c (gfc_type_for_mode): Return NULL for unknown modes.
+
 2004-09-01  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
        PR fortran/15327

diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index 2400c2e21d5d9443f181b6cd62713ccbbd74e0d9..7159c50ac6539dcac97f95d255908f9f790bd416 100644 (file)
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -1625,7 +1625,7 @@ gfc_type_for_mode (enum machine_mode mode, int unsignedp)
       return NULL_TREE;
     }
   else
-    abort ();
+    return NULL;
 
   for (i = 0; i <= MAX_REAL_KINDS; ++i)
     {