a=1.1
      b=2.2
      print *,a,b
      call f06(a,b)
      print *,b,a
      print *,'test2 passed if both lines the same'
      end
      subroutine f06(x,z)
      temp=x
      x=z
      z=temp
      return
      end