RosettaCodeData/Task/Detect-division-by-zero/Fortran/detect-division-by-zero-2.f

program    rosetta_integer_divbyzero
   implicit none
   integer :: normal,zero,answer
   normal = 1
   zero = 0
   answer = normal/ zero
   write(*,*) answer
end program rosetta_integer_divbyzero