re PR fortran/28039 (Warn when ignoring extra characters in the format specification)

2009-08-27  Tobias Burnus  <burnus@net-b.de>

        PR fortran/28039
        * gfortran.dg/fmt_with_extra.f: xfail testcase as patch was
        * reverted.

From-SVN: r151141

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ad8b144ae6e5de4f4d1a140f21695b016e295a14..379012fed27751030663067520c88503d081629e 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-08-27  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/28039
+       * gfortran.dg/fmt_with_extra.f: xfail testcase as patch was reverted.
+
 2009-08-27  Daniel Kraft  <d@domob.eu>
 
        PR fortran/37425

diff --git a/gcc/testsuite/gfortran.dg/fmt_with_extra.f b/gcc/testsuite/gfortran.dg/fmt_with_extra.f
index 45664be906f996d7831cc81ac7e66598a552543b..9782882cde96144dede364891aff9e203579e6c4 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fmt_with_extra.f
+++ b/gcc/testsuite/gfortran.dg/fmt_with_extra.f
@@ -4,5 +4,5 @@
        implicit none
        real :: r
        r = 1.0
-       write(*,'(a),f)') 'Hello', r   !{ dg-warning "Extraneous characters in format at" }
+       write(*,'(a),f)') 'Hello', r   ! { dg-warning "Extraneous characters in format at" "PR28039" { xfail *-*-* } }
        end