com.c (ffe_type_for_mode): Handle long double.

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

        * com.c (ffe_type_for_mode): Handle long double.

From-SVN: r56921

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 56e33aa67f75b4a8e3e38c2f175e1afe485b1ac3..299a5c392bb1b608b2847fdccae11c6dd3280828 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-07  Jan Hubicka  <jh@suse.cz>
+
+       * com.c (ffe_type_for_mode): Handle long double.
+
 2002-09-04  Richard Henderson  <rth@redhat.com>
 
        * target.h (ffetarget_print_real1, ffetarget_print_real2): Update

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 4757d7e0c717be055fada38f458750a6fea61e94..5a6bc7e8d286c5cb0179b7a926e469b60dde582e 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)))