      program alias1
      x = 1.0
      call sub(x,x)
      print *,x
      end
      subroutine sub(x,y)
      x=2.
      y=3.
      end
