diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-05-03 16:46:45 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-05-03 12:46:45 -0400 |
| commit | c56f65d67585765a7e265365f95bc2b6f172c7db (patch) | |
| tree | 5601ce8aa502f72eeac7e72885521f912b674228 /gcc | |
| parent | 7f10c2e2fc51c27543682d4db589b2251c6fd7f0 (diff) | |
| download | gcc-c56f65d67585765a7e265365f95bc2b6f172c7db.zip gcc-c56f65d67585765a7e265365f95bc2b6f172c7db.tar.gz gcc-c56f65d67585765a7e265365f95bc2b6f172c7db.tar.bz2 | |
fix CTIME_subr bug
From-SVN: r26759
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/f/com.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 90f7b7e..0ffb510 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 a0f33e6..0329c87 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)); |