gcc/testsuite/gfortran.dg/fmt_missing_period_3.f

   1 ! { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 ! PR27634 Missing period in format specifier. Test case derived from case given
   4 ! in PR.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   5       real          :: aval = 3.14
   6       character(6)  :: str = "xyz"
   7       character(12) :: input = "1234abcdef"
   8       character(8)  :: fmtstr = "(f4,a6)"
   9       aval = 0.0
  10       str = "xyz"
  11       read(input,fmtstr) aval, str
  12       if (aval.ne.1234.0) STOP 1
  13       if (str.ne."abcdef") STOP 2
  14       end
  15