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

--- Comment #1 from Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> ---
Thanks Andreas for reporting this. Could you please compile and run the
following Fortran source, and paste the output here? It's been a long time
since I have used a ppc machine (and it was a darwin one, so maybe different
support).

$ cat z.f90 
  use iso_fortran_env
  use ieee_arithmetic
  integer, parameter :: maxreal = real_kinds(size(real_kinds))
  print *, real_kinds
  print *, maxval(real_kinds), maxreal
  print *, range(0._maxreal)
  print *, selected_real_kind(0,range(0._maxreal))
  print *, ieee_selected_real_kind(0,range(0._maxreal))
  print *, selected_real_kind(0,range(0._maxreal)+1)
  print *, ieee_selected_real_kind(0,range(0._maxreal)+1)
  end
$ ./bin/gfortran z.f90 && ./a.out

Reply via email to