forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

OT A little fortran humor...

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> General
View previous topic :: View next topic  
Author Message
brucebowler
Guest





PostPosted: Wed Oct 18, 2006 9:17 am    Post subject: OT A little fortran humor... Reply with quote

I saw this in the fortran news group. A fine example of how to drive a fortran newbie nuts...

integer go to,do 100 if,return
real read(4)
logical go to if
real logical(30)
data read/4h(1x,,3hi5,,4hf8.1,1h)/
data go to,do 100 if,if 100 do/2,1,30/
assign 100 to if go to
do 100 if=do 100 if,if 100 do
return=if
logical(if)=return
go to if=if-go to*(if/go to).eq.do 100 if
if(go to if) go to if go to
call call(logical,return)
100 continue
print read, (if,logical(if),if=do 100 if,if 100 do)
stop
end
subroutine call( integer,real )
integer real
real integer(real)
common(if)=if*if
integer(real)=common(real)
return
end
Back to top
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> General All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group