------- Comment #10 from jvdelisle at gcc dot gnu dot org 2007-10-19 04:58
-------
This does the trick. I am checking the testsuite for any side effects.
Index: simplify.c
===================================================================
--- simplify.c (revision 129465)
+++ simplify.c (working copy)
@@ -4065,7 +4065,7 @@ gfc_simplify_transfer (gfc_expr *source,
result_size = result_elt_size;
}
- if (source_size < result_size)
+ if (gfc_option.warn_surprising && source_size < result_size)
gfc_warning("Intrinsic TRANSFER at %L has partly undefined result: "
"source size %ld < result size %ld", &source->where,
(long) source_size, (long) result_size);
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33544
