From: Craig Burley <craig@jcb-sc.com>
Date: Mon, 3 May 1999 16:46:45 +0000 (+0000)
Subject: fix CTIME_subr bug
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c56f65d67585765a7e265365f95bc2b6f172c7db;p=gcc.git

fix CTIME_subr bug

From-SVN: r26759
---

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 90f7b7e27eb..0ffb510f5de 100644
--- 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 a0f33e6e603..0329c87d3ba 100644
--- 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));