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

--- Comment #3 from Xi Ruoyao <xry111 at gcc dot gnu.org> ---
Minimized test case:

! { dg-do run }

  use, intrinsic :: ieee_arithmetic
  implicit none

  real :: sx1, sx2, sx3
  double precision :: dx1, dx2, dx3
  type(ieee_round_type) :: mode

  ! Test IEEE_COPY_SIGN
  sx1 = -tiny(sx1)
  sx1 = sx1 / 101
  if (ieee_copy_sign(sx1, sx1) /= sx1) STOP 37
end

Reply via email to