Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!wuarchive!gem.mps.ohio-state.edu!ginosko!uunet!deimos.cis.ksu.edu!harris.cis.ksu.edu!mac
From: mac@harris.cis.ksu.edu (Myron A. Calhoun)
Newsgroups: comp.lang.fortran
Subject: Re: free form vs, fixed
Keywords: TERRIBLE
Message-ID: <3438@deimos.cis.ksu.edu>
Date: 11 Sep 89 18:37:50 GMT
References: <2995@quanta.eng.ohio-state.edu>
Sender: news@deimos.cis.ksu.edu
Reply-To: mac@harris.cis.ksu.edu (Myron A. Calhoun)
Distribution: usa
Organization: Kansas State University, Dept of Computing & Information Sciences
Lines: 21

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

TERRIBLE!  THEN J is a variable under F77.  Fortunately, any GOOD
programmer instructs hizer compiler/system to flag all undeclared
variables; my f77 compiler on this harris unix system immediately
told me there was something "funny" in that IF statement.
--Myron
--
Myron A. Calhoun, PhD EE, W0PBV, (913) 532-6350 (work), 539-4448 (home).
INTERNET: mac@ksuvax1.cis.ksu.edu
BITNET:   mac@ksuvax1.bitnet
UUCP:  ...{rutgers, texbell}!ksuvax1!harry!mac