program smpl3
! compare integer & floating point divides
      implicit none 
      integer j,k
      real x,y
! divide integer 3 by integer 4
      j = 3
      k = j / 4
! divide floating point 3 by floating point 4
      x = 3.0
      y = x / 4.0
      write(*,*) 'integer ',k,' floating point ',y
      stop
      end program smpl3