2002-09-07 Jan Hubicka <jh@suse.cz>

[pf3gnuchains/gcc-fork.git] / gcc / f / com.c

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 4757d7e..5a6bc7e 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -14879,7 +14879,10 @@ ffe_type_for_mode (mode, unsignedp)
   if (mode == TYPE_MODE (double_type_node))
     return double_type_node;
 
-  if (mode == TYPE_MODE (build_pointer_type (char_type_node)))
+  if (mode == TYPE_MODE (long_double_type_node))
+    return long_double_type_node;
+
+ if (mode == TYPE_MODE (build_pointer_type (char_type_node)))
     return build_pointer_type (char_type_node);
 
   if (mode == TYPE_MODE (build_pointer_type (integer_type_node)))