! 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.8. Two assignments with mixed types.
  program C08
    implicit none
    real, parameter :: A = 3.0
    integer, parameter :: K = 3
    integer :: M1, M2
! start program C08
    M1 = (A / 4) * K  ! M1 = (3.0 / 4) * 3
    M2 = (K / 4) * A  ! M2 = (3 / 4) * 3.0
    write (unit = *, fmt = *) M1, M2
    stop
  end program C08
