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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@151141 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ad8b144..379012f 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 45664be..9782882 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