program main
  CHARACTER :: a*14 = "DiesIstEinTest"
  
  write (*,*) LEN(a)
  call up ( a );
end program

subroutine up ( a )
  CHARACTER*(*) a
  
  write (*,*) LEN(a)
  write (*,*) a
end subroutine