! 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 6.3. Character assignment.
  program G03
    implicit none
    integer, parameter :: S_LEN = 9
    character (len = S_LEN) :: First, Second
! start program G03
    First = " summary "
    Second = First
    write (unit = *, fmt = *) Second
    stop
  end program G03
