! { dg-do run } | |
! | |
! PR libgfortran/53051 | |
! | |
! Check that reading "4.0q0" works, i.e. floating-point | |
! numbers which use "q" to indicate the exponential. | |
! (Which is a vendor extension.) | |
! | |
character(len=20) :: str | |
real :: r | |
integer :: i | |
r = 0 | |
str = '1.0q0' | |
read(str, *, iostat=i) r | |
if (r /= 1.0 .or. i /= 0) STOP 1 | |
!print *, r | |
end |