character*(*) s
      parameter (s = 'hello')
      end