From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Thread: 5b1e799cdb,3ef3e78eacf6f938 X-Google-Attributes: gid5b1e799cdb,public,usenet X-Google-NewGroupId: yes X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news2.google.com!news1.google.com!newsfeed.stanford.edu!elk.ncren.net!news.purdue.edu!not-for-mail From: Dave Seaman Newsgroups: comp.lang.eiffel,comp.lang.ada,comp.lang.modula3,comp.programming Subject: Re: Alternatives to C: ObjectPascal, Eiffel, Ada or Modula-3? Date: Tue, 28 Jul 2009 12:29:36 +0000 (UTC) Organization: Information Technology at Purdue Message-ID: References: <4fc0934e-197b-4a02-a006-4b64072897b2@h18g2000yqj.googlegroups.com> <7020ad82-ed09-4c87-8f46-db23bf2fa866@32g2000yqj.googlegroups.com> NNTP-Posting-Host: orion.rcac.purdue.edu Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: mailhub227.itcs.purdue.edu 1248784176 9671 128.210.189.32 (28 Jul 2009 12:29:36 GMT) X-Complaints-To: news@purdue.edu NNTP-Posting-Date: Tue, 28 Jul 2009 12:29:36 +0000 (UTC) User-Agent: slrn/0.9.9 (Darwin) Xref: g2news2.google.com comp.lang.eiffel:438 comp.lang.ada:7374 comp.lang.modula3:121 comp.programming:12071 Date: 2009-07-28T12:29:36+00:00 List-Id: On Tue, 28 Jul 2009 01:01:45 -0400, wwilson wrote: > To simplify compilation (or because the compiler writer didn't know or > care) many of these varieties used "DO " as a reserved word (although > FORTRAN had no reserved words). I think this was more common on FORTRANs > for small computers though I have no proof. > Thank you for pointing out a distinction I should have made. Any other > cases that I missed? You may find a few in the following program, which actually compiles (with numerous warnings) under gfortran 4.4.0 and executes. 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 -- Dave Seaman Third Circuit ignores precedent in Mumia Abu-Jamal ruling.