http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58113
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #2 from kargl at gcc dot gnu.org ---
round_4.f90 fails on x86_64-unknown-freebsd10.0.
Reduce testcase
program main
use iso_fortran_env
implicit none
real(4) :: r4p, r4m, ref4u, ref4d
character(len=20) :: str, round
ref4u = 0.100000001_4
ref4d = nearest (ref4u, -1.0_4)
round = 'up'
call t()
print '(4Z10)', r4p, ref4u, r4m, -ref4d
contains
subroutine t()
str = "0.1 0.1 0.1 0.1"
read(str, *,round=round) r4p, r8p, r10p, r16p
str = "-0.1 -0.1 -0.1 -0.1"
read(str, *,round=round) r4m, r8m, r10m, r16m
end subroutine t
end program main
% gfc4x -o z round_4.f90 && ./z
3DCCCCCD 3DCCCCCD BDCCCCCD BDCCCCCC
