Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!wuarchive!brutus.cs.uiuc.edu!ginosko!uunet!mcsun!inria!geocub!simonnet
From: simonnet@geocub.greco-prog.fr
Newsgroups: comp.lang.fortran
Subject: little problem
Message-ID: <1349@geocub.greco-prog.fr>
Date: 10 Sep 89 14:12:20 GMT
Sender: news@geocub.greco-prog.fr
Reply-To: simonnet@goofi.UUCP (Simonnet Thierry)
Organization: ENSERB 351 cours de la liberation 33405 TALENCE tel 56 84 65 00
Lines: 24


     1 = 3 ......
     
    
   For some machines (HP1000 for example) 1 = 3
   
  
 	program toto
 	
 	call add (1)
 	write (1,*) 'One = ?', 1
 	end
 	
 *--------------------------------------*
	subroutine add (a)
	
	integer *2 a
	
	a = a + 2
	return
	
	end

Result is : One = ? 3 !!!!!