1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { 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
|
