blob: 01a0de8c04f193bf84dcbb1ea09918124fbabfb4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { 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) call abort()
!print *, r
end
|
