mod in Julia & Fortran

mod.f90

program main
  implicit none
  integer :: i

  do i = -6,6
    print *, i, mod(i,3)
  end do

end program main

mod.jl

for i in -6:6
  println(i, "\t", mod(i,3))
end

mod_fortran.jl

for i in -6:6
  println(i, "\t", i<0 ? -mod(-i,3) : mod(i,3))
end

mod_julia.f90

program main
  implicit none
  integer :: i

  do i = -6,6
    print *, i, mod(abs(i+3),3)
  end do

end program main

rem.jl

for i in -6:6
  println(i, "\t", rem(i,3))
end