! Program Example from "Essential Fortran 90 & 95" by Loren P. Meissner
! Copyright 1996. Copying for sale requires permission from the author.
! Otherwise, distribution is permitted if these three lines are included.

! Example 2.7. Integer division.
  program C07
    implicit none
    integer, parameter :: J = 5, L = 7, M = 4, N = 5
    integer :: Result_A, Result_B
! start program C07
    Result_A = (L - M) / N * J  ! (7 - 4) / 5 * 5 is zero
    Result_B = J * (L - M) / N  ! 5 * (7 - 4) / 5 is 3
    write (unit = *, fmt = *) J, L, M, N, Result_A, Result_B
    stop
  end program C07
