! 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 1.4. Specifying the kind type parameter.
  program B04
    implicit none
    integer, parameter :: SHORT_INT = kind (1), &
      SHORT_REAL = selected_real_kind (4)
    integer (kind = SHORT_INT) :: One, Two
    real (kind = SHORT_REAL) :: Actual
! start program B04
    One = 1_SHORT_INT
    Two = 2_SHORT_INT
    Actual = 3.0_SHORT_REAL
    write (unit = *, fmt = *) One, Two, Actual
    stop
  end program B04
