      program contain1
      real  x,y
      x = 3.14
      call sub(x)
	  y = x * 2
      stop
      end
	  subroutine sub(x)
	  x=x+1
	  end
