maxexponent(x) returns the maximum exponent in the model of the type of x.
Fortran 95 and later
result = maxexponent(x)
x - Shall be of type real.The return value is of type integer and of the default integer kind.
program exponents
  real(kind=4) :: x
  real(kind=8) :: y
  print *, minexponent(x), maxexponent(x)
  print *, minexponent(y), maxexponent(y)
end program exponents