1 2 3 4 5 6 7
program prog use mod2 implicit none if (modval1 + modval2 /= 3) stop 1 end program prog