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" }
   8        end