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