! { dg-do run }

if (modulo (-8., -5.) .ne. -3.) STOP 1

end