gcc/testsuite/gfortran.dg/fmt_missing_period_2.f

   1 ! { dg-do run }
   2 ! { dg-options "-w -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       read(input,'(f4,a6)') aval, str
   9       if (aval.ne.1234.0) call abort()
  10       if (str.ne."abcdef") call abort()
  11       aval = 0.0
  12       str = "xyz"
  13       read(input,'(d4,a6)') aval, str
  14       if (aval.ne.1234.0) call abort()
  15       if (str.ne."abcdef") call abort()
  16       end