[Bug fortran/107062] [13 regression] gfortran.dg/ieee/fma_1.f90 fails after r13-2577-g7c4c65d11469d2

[seurer at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107062

--- Comment #2 from seurer at gcc dot gnu.org ---
seurer@rain6p1:~/gcc/git/build/gcc-test$ cat a.f90
  use ieee_arithmetic
  integer, parameter :: k1 = &
    max(ieee_selected_real_kind(precision(0.d0) + 1), kind(0.))
  integer, parameter :: k2 = &
    max(ieee_selected_real_kind(precision(0._k1) + 1), kind(0.d0))

  print *, k1, k2
  end
seurer@rain6p1:~/gcc/git/build/gcc-test$ $GCC_INSTALL/bin/gfortran a.f90 &&
./a.out
          16           8