Comment the subtraction change.

From-SVN: r17851

diff --git a/gcc/f/com.c b/gcc/f/com.c
index a63864a1ad5d7f6dd31725bc0c0d818bdd4c4d91..04ca03e2d825de99b63017017a0ec35ad2876e54 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -13030,6 +13030,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)),