From 8cd61d76f7865b537d9e4de50419789b31ab73bf Mon Sep 17 00:00:00 2001 From: Richard Henderson Date: Tue, 10 Feb 1998 16:54:15 -0800 Subject: [PATCH] Copy comment to go with the subtraction patch. From-SVN: r17850 --- gcc/f/com.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/gcc/f/com.c b/gcc/f/com.c index 4934134ab1e..8ccf8c3b813 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -13026,6 +13026,8 @@ ffecom_ptr_to_expr (ffebld expr) i >= 0; --i, array = TYPE_MAIN_VARIANT (TREE_TYPE (array))) { + /* The initial subtraction should happen in the original type so + that (possible) negative values are handled appropriately. */ item = ffecom_2 (PLUS_EXPR, build_pointer_type (TREE_TYPE (array)), -- 2.30.2