      subroutine f()
      integer x
      real one, two
      data x /1/
      DATA ONE, TWO /1.0, 2.0/
      end subroutine
