!=======================================================================
!   FILE: TEST17.F90
!   DATE: 21 July 2003
!
!   TEST: Character parameter has longer length declared than
!         corresponding argument.
!
!   Contact: Ewan Cunningham
!=======================================================================
        subroutine foo(y)
           character(len=20) :: y
           y = 'hello world'
        end

        program test
           character(len=10) :: x
           call foo(x)
           write(*,*) 'X=',x
        end