character*3 function foo(s)
      character*(*) s
      foo = s(1:3)
      end