      program test
      call f
      end
