! { dg-do run }

if (modulo (-8., -5.) .ne. -3.) call abort ()

end