fix CTIME_subr bug

From-SVN: r26759

fix CTIME_subr bug
From-SVN: r26759
c56f65d6 · Craig Burley · Craig Burley · 7f10c2e2 · c56f65d6 · c56f65d6
Commit c56f65d6 authored May 03, 1999 by Craig Burley Committed by Craig Burley May 03, 1999
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletions

gcc/f/ChangeLog
+4 -0

gcc/f/com.c
+1 -1

No files found.
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
+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,

--- 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));