simplify_modulo.f90   [plain text]

! { dg-do run }

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

end