simplify_modulo.f90
[
plain text
]
! { dg-do run } if (modulo (-8., -5.) .ne. -3.) call abort () end