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) STOP 1 10 if (str.ne."abcdef") STOP 2 11 aval = 0.0 12 str = "xyz" 13 read(input,'(d4,a6)') aval, str 14 if (aval.ne.1234.0) STOP 3 15 if (str.ne."abcdef") STOP 4 16 end 17