Path: utzoo!attcan!uunet!mcsun!sunic!tut!tukki!sakkinen From: sakkinen@tukki.jyu.fi (Markku Sakkinen) Newsgroups: comp.lang.fortran Subject: Re: Standard conformance Message-ID: <1346@tukki.jyu.fi> Date: 22 Sep 89 07:56:23 GMT References: <1301@tukki.jyu.fi> <9568@cbnews.ATT.COM> <850@puff.luth.se> Reply-To: sakkinen@tukki.jyu.fi (Markku Sakkinen) Followup-To: dab@oswego.oswego.edu (Dave Bozak) Organization: University of Jyvaskyla, Finland Lines: 65 -- Note: I am only forwarding the original: see below. Markku Sakkinen -- *From: dab@oswego.oswego.edu (Dave Bozak) *Message-Id: <8909170053.AA22598@oswego> *Received: by oswego.Oswego.EDU (5.57/Osw4.1.6) id AA22598; Sat, 16 Sep 89 20:53:44 EDT *To: markku@jytko.jyu.fi *Subject: fortran conformance *Status: R hi, The following is in response to your posting in comp.lang.fortran. Right now, it seems any postings from our machine never really get out into the real world, so I thought I'd just mail a copy to you. If you wish to post a copy of it, feel free. -dave bozak My two cents worth: I have run into so many peculiarities using the f77 compiler that comes with Ultrix, I insist my students run their code through PFORT first. If it doesn't pass, don't bother compiling it. Here is what I get when I send the program through NAG's PFORT verifier (part of Toolpack): 1=>pfort test.f ISTLA - Toolpack Static Analyser, Version 1.2 Error: Invalid forward reference to - 2 at statement 4 in $MAIN detected at @2 (token number 23) [ISTLA Terminated, 1 parse error] Tool Termination Status: ERROR Errors detected. Invoke script "getlst" to obtain a listing showing statement and token numbers. 2=>getlst test.f [ISTLX Normal Termination] In the following listing, the first number is the statement number and the second number is the number of the first token in the statement. Statements are numbered within a program unit, tokens within the file. Scanning errors are indicated. When a scanning error occurs, the scanner resets and continues. TOOLPACK FORTRAN 77 SCANNER - RELEASE 2 1 - 1 INTEGER I, J 2 - 6 IF (I .LT. 100000) GOTO 2 3 - 15 DO 9 I = 1, 10 4 - 23 2 J = I * I 5 - 30 WRITE (6, 100) I, J 6 - 40 9 CONTINUE 7 - 43 100 FORMAT (2I12) 8 - 49 END /\ David Alan Bozak, Computer Science Department / \ SUNY College at Oswego, Oswego, NY 13126 (315) 341-2347 _____/____\_____ Internet: dab@rocky.oswego.edu / / \ \ or dab%rocky.oswego.edu@nisc.nyser.net /____/ \____\ UUCP: {cornell!devvax,rutgers!sunybcs}!oswego!rocky!dab