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

gcc/testsuite/ChangeLog

+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

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