fix CTIME_subr bug

From-SVN: r26759
This commit is contained in:
Craig Burley 1999-05-03 16:46:45 +00:00 committed by Craig Burley
parent 7f10c2e2fc
commit c56f65d675
2 changed files with 5 additions and 1 deletions

View File

@ -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,

View File

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