summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/simplify_modulo.f90
blob: 550a3adb9c73555e177b66b6fecdd39e616cedbc (plain)
1
2
3
4
5
! { dg-do run }

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

end