File: fmt_with_extra.f

package info (click to toggle)

gcc-arm-none-eabi 15%3A12.2.rel1-1

links: PTS, VCS
area: main
in suites: bookworm
size: 959,712 kB
sloc: cpp: 3,275,382; ansic: 2,061,766; ada: 840,956; f90: 208,513; makefile: 76,132; asm: 73,433; xml: 50,448; exp: 34,146; sh: 32,436; objc: 15,637; fortran: 14,012; python: 11,991; pascal: 6,787; awk: 4,779; perl: 3,054; yacc: 338; ml: 285; lex: 201; haskell: 122

file content (28 lines) | stat: -rw-r--r-- 936 bytes

parent folder | download | duplicates (6)

! { 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