From cae39e4e23a3b7b5dc449c3e64fa81f33a2ca8a1 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Mon, 28 Jun 1999 20:27:42 -0600 Subject: [PATCH] com.c (ffecom_prepare_expr_): A COMPLEX intrinsic needs a temp even if -fno-f2c. h * com.c (ffecom_prepare_expr_): A COMPLEX intrinsic needs a temp even if -fno-f2c. * version.c: Bump version. From-SVN: r27832 --- gcc/f/com.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/gcc/f/com.c b/gcc/f/com.c index 9500956cc22b..c326fedaae78 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -13068,7 +13068,10 @@ ffecom_prepare_expr_ (ffebld expr, ffebld dest UNUSED) s = ffebld_symter (ffebld_left (expr)); if (ffesymbol_where (s) == FFEINFO_whereCONSTANT - || ! ffesymbol_is_f2c (s)) + || (ffesymbol_where (s) != FFEINFO_whereINTRINSIC + && ! ffesymbol_is_f2c (s)) + || (ffesymbol_where (s) == FFEINFO_whereINTRINSIC + && ! ffe_is_f2c_library ())) break; } else if (ffebld_op (expr) == FFEBLD_opPOWER) -- 2.47.2