robotux
/
rt_gccstream
1
0
Fork 0
Code Issues Pull Requests Releases Activity
rt_gccstream/gcc/testsuite/gfortran.dg/simplify_modulo.f90

6 lines
68 B
Fortran
Raw Permalink Blame History

! { dg-do run }
if (modulo (-8., -5.) .ne. -3.) call abort ()
end
Reference in New Issue View Git Blame Copy Permalink