Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!brutus.cs.uiuc.edu!apple!sun-barr!rutgers!cmcl2!lanl!jlg
From: jlg@lanl.gov (Jim Giles)
Newsgroups: comp.lang.fortran
Subject: Re: free form vs, fixed
Summary: Not legal in either mode
Message-ID: <14041@lanl.gov>
Date: 10 Sep 89 22:05:48 GMT
References: <2995@quanta.eng.ohio-state.edu>
Organization: Los Alamos National Laboratory
Lines: 16

In article <2995@quanta.eng.ohio-state.edu>, MCDOWELL@kcgl1.eng.ohio-state.edu (James K. McDowell) writes:
> 	How will 8X interpret this piece of code in both the
> 	fixed and freeform modes ?
> 		PROGRAM TEST
> 		I = 1
> 		J = 2
> 		IF ( I .EQ. 1 ) THEN J = 1
> 		WRITE(6,*) I, J
> 		STOP
> 		END

In 8x fixed mode, the result is I prints as 1, J prints as 2, and
the value of the variable THENJ will be 1.  In 8x freeform mode
the program is illegal since the keyword THEN is valid only for
block IFs and the syntax <id> <id> is not a valid beginning of
any executable statement.