OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
9782882cde96144dede364891aff9e203579e6c4
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
fmt_with_extra.f
1
! { dg-do compile }
2
! test case contributed by tobias.burnus@physik.fu-berlin.de
3
! PR28039 Warn when ignoring extra characters in the format specification
4
implicit none
5
real :: r
6
r = 1.0
7
write(*,'(a),f)') 'Hello', r ! { dg-warning "Extraneous characters in format at" "PR28039" { xfail *-*-* } }
8
end