From 1a5ffec4eb7916849d973d82a845602ae2c0c86d Mon Sep 17 00:00:00 2001
From: Paul Brook <pbrook@gcc.gnu.org>
Date: Thu, 2 Sep 2004 18:44:39 +0000
Subject: [PATCH] * trans-types.c (gfc_type_for_mode): Return NULL for unknown
 modes.

From-SVN: r86978
---
 gcc/fortran/trans-types.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index 7159c50ac65..610449ffea1 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
-    return NULL;
+    return NULL_TREE;
 
   for (i = 0; i <= MAX_REAL_KINDS; ++i)
     {
-- 
2.30.2