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

From-SVN: r86978

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