1! { dg-do run }
2program m
3  integer i
4  real x,y
5  real, parameter :: a = -3.0
6  i = int(rrspacing(a))
7  if (i /= 12582912) call abort
8end program m
9