! 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.1. Constants and variables in string length specifications.
  program G01
    use G01M
    implicit none
    integer, parameter :: L = 8
    character (len = L), parameter :: S1 = "STUVWXYZ"
! start program G01
    write (unit = *, fmt = *) A( L - 1, S1)
    stop
  end program G01
