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
