Subversion Repositories openrisc

! { dg-do compile }

! test case contributed by tobias.burnus@physik.fu-berlin.de

! PR28039 Warn when ignoring extra characters in the format specification

       implicit none

       real :: r

       r = 1.0

       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