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>
6 character(6) :: str = "xyz"
7 character(12) :: input = "1234abcdef"
8 character(8) :: fmtstr = "(f4,a6)"
11 read(input,fmtstr) aval, str
12 if (aval.ne.1234.0) call abort()
13 if (str.ne."abcdef") call abort()