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

2010-04-08  Bud Davis  <bdavis9659@sbcglobal.net>

	PR fortran/28039
	* gfortran.dg/fmt_with_extra.f: Remove xfail and update test.

From-SVN: r158148

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 738ee299478e7e550d3b90f015278c5173c08ff3..8a4fc08166e79905c31164d7f7ba963e28084a08 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-04-08  Bud Davis  <bdavis9659@sbcglobal.net>
+
+       PR fortran/28039
+       * gfortran.dg/fmt_with_extra.f: Remove xfail and update test.
+
 2010-04-08  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 
        PR target/43643

diff --git a/gcc/testsuite/gfortran.dg/fmt_with_extra.f b/gcc/testsuite/gfortran.dg/fmt_with_extra.f
index 9782882cde96144dede364891aff9e203579e6c4..679728221857b4cf1a5db603e9841af1414b09df 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fmt_with_extra.f
+++ b/gcc/testsuite/gfortran.dg/fmt_with_extra.f
@@ -4,5 +4,25 @@
        implicit none
        real :: r
        r = 1.0
-       write(*,'(a),f)') 'Hello', r   ! { dg-warning "Extraneous characters in format at" "PR28039" { xfail *-*-* } }
+       write(*,'(a),f)') 'Hello', r   ! { dg-warning "Extraneous characters in format at" }
        end
+! Below routine was also submitted by tobias.burnus@physik.fu-berlin.de
+! It showed up some problems with the initial implementation of this
+! feature.
+! This routine should compile without complaint or warning.
+      SUBROUTINE rw_inp()
+      CHARACTER(len=100) :: line
+      integer :: i5
+      character(100), parameter :: subchapter =
+     &        '(79("-"),/,5("-")," ",A,/,79("-"),/)'
+      i5 = 1
+
+      READ(*,FMT="(4x,a)") line
+ 7182 FORMAT (a3)
+ 7130 FORMAT (i3)
+
+      WRITE (6,'(//'' icorr is not correctly transferred.  icorr='',i5)
+     &    ') 42
+
+      write(*,subchapter) 'test'
+      END SUBROUTINE rw_inp