blob: d6b8504d46d07ac73c1691a85071a22a65f0a405 [file] [log] [blame]
! { dg-do run }
! { dg-options "-w -std=legacy" }
! PR27634 Missing period in format specifier. Test case derived from case given
! in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
real :: aval = 3.14
character(6) :: str = "xyz"
character(12) :: input = "1234abcdef"
read(input,'(f4,a6)') aval, str
if (aval.ne.1234.0) STOP 1
if (str.ne."abcdef") STOP 2
aval = 0.0
str = "xyz"
read(input,'(d4,a6)') aval, str
if (aval.ne.1234.0) STOP 3
if (str.ne."abcdef") STOP 4
end