1! { dg-do run } 2! 3! PR libgfortran/53051 4! 5! Check that reading "4.0q0" works, i.e. floating-point 6! numbers which use "q" to indicate the exponential. 7! (Which is a vendor extension.) 8! 9 character(len=20) :: str 10 real :: r 11 integer :: i 12 13 r = 0 14 str = '1.0q0' 15 read(str, *, iostat=i) r 16 if (r /= 1.0 .or. i /= 0) call abort() 17 !print *, r 18 end 19