2 ! test case contributed by tobias.burnus@physik.fu-berlin.de
3 ! PR28039 Warn when ignoring extra characters in the format specification
7 write(*,'(a),f)') 'Hello', r ! { dg-warning "Extraneous characters in format at" }
9 ! Below routine was also submitted by tobias.burnus@physik.fu-berlin.de
10 ! It showed up some problems with the initial implementation of this
12 ! This routine should compile without complaint or warning.
14 CHARACTER(len=100) :: line
16 character(100), parameter :: subchapter =
17 & '(79("-"),/,5("-")," ",A,/,79("-"),/)'
20 READ(*,FMT="(4x,a)") line
24 WRITE (6,'(//'' icorr is not correctly transferred. icorr='',i5)
27 write(*,subchapter) 'test'