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