| ! { 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 |