program main
  !
  ! Sample program of division
  !  
  implicit none
  real :: a,b,c
  integer :: l,m,n

  write(*,*) 'Input A and B'
  write(*,*) 'A, B = ?'
  read(*,*) a,b

  write(*,*) 'Input L and M'
  write(*,*) 'L, M = ?'
  read(*,*) l,m

  c=a/b
  n=l/m

  write(*,*) 'A/B =',c
  write(*,*) 'L/M =',n

end program main

実行結果