program divbyzero  
       implicit none  
!example of trapping division by zero 
       integer    :: i
       real       :: a
       a=2                     
       print *,'enter a number, a'
       read *,a
       do i=-10,10 
         if (i == 0)then
               print *, 'Infinity'
          else
                print *, a, ' divided by ',i, ' = ', a/i
          end if
       end do 
       end program divbyzero