This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[patch, fortran]: PR33544 Warning in TRANSFER intrinsic should be made optional
- From: Jerry DeLisle <jvdelisle at verizon dot net>
- To: Fortran List <fortran at gcc dot gnu dot org>, gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Thu, 18 Oct 2007 22:12:56 -0700
- Subject: [patch, fortran]: PR33544 Warning in TRANSFER intrinsic should be made optional
The attached patch regression tested. This is obvious and simple. I see no
need to add a special compiler option for this.
Also modified test case transfer_check_1.f90.
OK?
Jerry
2007-10-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/33544
* simplify.c (gfc_simplify_transfer): Only warn for short transfer when
-Wsurprising is given.
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);
Index: gfortran.dg/transfer_check_1.f90
===================================================================
--- gfortran.dg/transfer_check_1.f90 (revision 129465)
+++ gfortran.dg/transfer_check_1.f90 (working copy)
@@ -1,4 +1,5 @@
! { dg-do compile }
+! { dg-options -Wsurprising }
! PR fortran/33037
!
print *, transfer('x', 0, 20) ! { dg-warning "has partly undefined result" }