From: Tobias Burnus <burnus@net-b.de>
Date: Thu, 27 Aug 2009 11:59:51 +0000 (+0200)
Subject: re PR fortran/28039 (Warn when ignoring extra characters in the format specification)
X-Git-Tag: releases/gcc-4.5.0~3821
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=7765789968f0b70449347d233c3d845501dba67b;p=thirdparty%2Fgcc.git

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 ad8b144ae6e5..379012fed277 100644
--- 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 45664be906f9..9782882cde96 100644
--- 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