OSDN Git Service

PR debug/43329
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / simplify_modulo.f90
1 ! { dg-do run }
2
3 if (modulo (-8., -5.) .ne. -3.) call abort ()
4
5 end