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

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

end