subroutine foo(d,e,f)
      character*3   a, b*4, c*5
      character*(*) d, e*127
      character*255 f*(*), g
      end