OSDN Git Service

2009-08-27 Tobias Burnus <burnus@net-b.de>
[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