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

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / fmt_with_extra.f

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