From: Paul Brook <paul@codesourcery.com>
Date: Thu, 2 Sep 2004 18:37:16 +0000 (+0000)
Subject: * trans-types.c (gfc_type_for_mode): Return NULL for unknown modes.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4c97f95a5b31d4ab0826bfb8af36fbcf9e6a4098;p=gcc.git

* 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 abeaaaaeb43..f796c850ed9 100644
--- 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 2400c2e21d5..7159c50ac65 100644
--- 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)
     {