fix CTIME_subr bug
From-SVN: r26759
This commit is contained in:
parent
7f10c2e2fc
commit
c56f65d675
@ -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,
|
||||
|
@ -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));
|
||||
|
Loading…
Reference in New Issue
Block a user