https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107062
Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Last reconfirmed| |2022-09-28
Status|UNCONFIRMED |NEW
Ever confirmed|0 |1
--- Comment #1 from Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> ---
Can you run this on the target, and post the output here?
$ 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
$ gfortran a.f90 && ./a.out
16 8
