! 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 8.3. Automatic-length string as function result.
  program I03
    use I03M
    implicit none
    character (len = 40), parameter :: Sup = "SUPERCALIFRAGILISTICEXPIALIDOCIOUS", &
      Ant = "ANTIDISESTABLISHMENTARIANISM"
! start program I03
    write (unit = *, fmt = *) Combine( Sup(: len_trim( Sup )), Ant(: len_trim( Ant )) )
    stop
  end program I03

