1! { dg-do run } 2program tiny2 3 real(4) x4 4 real(8) x8 5 x4 = tiny(x4) 6 x8 = tiny(x8) 7 if (minexponent(x4) /= exponent(x4)) call abort 8 if (minexponent(x8) /= exponent(x8)) call abort 9end program tiny2 10