OSDN Git Service

2010-04-08 Bud Davis <bdavis9659@sbcglobal.net>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 9 Apr 2010 03:25:09 +0000 (03:25 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 9 Apr 2010 03:25:09 +0000 (03:25 +0000)
PR fortran/28039
* gfortran.dg/fmt_with_extra.f: Remove xfail and update test.

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

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/fmt_with_extra.f

index 738ee29..8a4fc08 100644 (file)
@@ -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
index 9782882..6797282 100644 (file)
@@ -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