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