Copy comment to go with the subtraction patch.

From-SVN: r17850

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 4934134ab1eeda4613840fef9ac37870827553a7..8ccf8c3b8132bf229076148cb769f52a74f63684 100644 (file)
--- 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)),