fix CTIME_subr bug

From-SVN: r26759

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 90f7b7e..0ffb510 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+Mon May  3 19:41:48 1999  Craig Burley  <craig@jcb-sc.com>
+
+       * com.c (ffecom_expr_intrinsic_): Fix test of CTIME_subr.
+
 Mon May  3 18:11:48 1999  Craig Burley  <craig@jcb-sc.com>
 
        Reverse order of two arguments to CTIME_subr, DTIME_subr,

diff --git a/gcc/f/com.c b/gcc/f/com.c
index a0f33e6..0329c87 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -5267,7 +5267,7 @@ ffecom_expr_intrinsic_ (ffebld expr, tree dest_tree,
 
        arg1_tree = ffecom_arg_ptr_to_expr (arg2, &arg1_len);
 
-       arg2_tree = convert (((gfrt == FFEINTRIN_impCTIME_subr) ?
+       arg2_tree = convert (((codegen_imp == FFEINTRIN_impCTIME_subr) ?
                              ffecom_f2c_longint_type_node :
                              ffecom_f2c_integer_type_node),
                             ffecom_expr (arg1));