Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 7/1/84; site wuphys.UUCP
Path: utzoo!watmath!clyde!cbosgd!ihnp4!mgnetp!we53!busch!wucs!wuphys!mff
From: mff@wuphys.UUCP (Swamp Thing)
Newsgroups: net.bizarre
Subject: Bizarre code
Message-ID: <361@wuphys.UUCP>
Date: Tue, 27-Aug-85 15:44:09 EDT
Article-I.D.: wuphys.361
Posted: Tue Aug 27 15:44:09 1985
Date-Received: Fri, 30-Aug-85 05:44:36 EDT
Distribution: net
Organization: Physics Dept., Washington Univ. in St. Louis
Lines: 29

Well, this one's my favorite.  Just skip over it if you've seen it before. I
know it works on at least 3 IBM compilers.

	i = 1
	j = 2
	call sub(1,j)
	i = 1
	write(6,*) i
	end
	subroutine sub(k,l)
	k = l
	return
	end

The output, of course, is "2".


						Mark F. Flynn
						Department of Physics
						Washington University
						St. Louis, MO  63130
						ihnp4!wuphys!mff

------------------------------------------------------------------------------

"There is no dark side of the moon, really.
 Matter of fact, it's all dark."

				P. Floyd