14 lines
346 B
Fortran
14 lines
346 B
Fortran
! { dg-do run }
|
|
|
|
! PR fortran/36214
|
|
! For BOZ-initialization of floats, the precision used to be wrong sometimes.
|
|
|
|
implicit none
|
|
real, parameter :: r = 0.0
|
|
real(kind=8), parameter :: rd = real (z'00000000&
|
|
&402953FD', 8)
|
|
|
|
if (real (z'00000000&
|
|
&402953FD', 8) /= rd) call abort
|
|
end
|