[Bug fortran/58113] [4.9 Regression] gfortran.dg/round_4.f90 FAILs

[kargl at gcc dot gnu.org]

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