Of even older fortran If x (100,200,300)
Chris Hoelscher Technology Architect, Database Infrastructure Services Technology Solution Services Humana Inc. 123 East Main Street Louisville, KY 40202 Humana.com (502) 476-2538 or 407-7266 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of zMan Sent: Thursday, April 26, 2018 1:21 PM To: [email protected] Subject: Re: [IBM-MAIN] RECFM (was: IRS - 60-Year-Old IT System Failed ... ) And don't forget the (early): 5 = 3 which, in at least some compilers, would indeed make subsequent references to "5" use "3". I think that was considered a bug. On Thu, Apr 26, 2018 at 11:26 AM, Binyamin Dissen < [email protected]> wrote: > On Thu, 26 Apr 2018 07:34:36 -0700 Phil Smith <[email protected]> wrote: > > :>Binyamin Dissen wrote, in part: > :>>And for the non-Fortran programmer > :>> DO 25 I = 1,10 > :>>is identical to > :>> DO25I=1,10 > :>>but different than > :>> DO25I=1.10 > > :>For the non-FORTRAN geeks who are wondering why anyone would ever > think the last is the same: NASA had a bug due to this. While often > blamed for the Mariner 1 failure, it seems that may not have been the > case after all, but it's still interesting. See > https://arstechnica.com/civis/ > viewtopic.php?t=862715 > > :>When you realized that > :> DO25I=1,10 > :>defines the start of a loop, but > :> DO25I=1.10 > :>is an assignment statement, you really wonder what about the FORTRAN > compiler parser! I'm sure it made sense at the time, and can see how > it would be done, but it still seems to me like a strange way to > design a language. > > Unlike COBOL which required white space, Fortran completely ignored > white space. Also, COBOL has reserved words - Fortran does not. > > The first step in compiling was to squash the statement (while paying > special attention to FORMAT statements where you might have nnnH, > while recognizing that > > 30 FORMAT(I5,I10)=28 > > is a valid assignment statement (as long a FORMAT was declared as an > array) while > > 30 FORMAT(I5,I10,6H =28) ) > > is a Format statement > > -- > Binyamin Dissen <[email protected]> > http://www.dissensoftware.com > > Director, Dissen Software, Bar & Grill - Israel > > > Should you use the mailblocks package and expect a response from me, > you should preauthorize the dissensoftware.com domain. > > I very rarely bother responding to challenge/response systems, > especially those from irresponsible companies. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to [email protected] with the message: INFO IBM-MAIN > -- zMan -- "I've got a mainframe and I'm not afraid to use it" ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information. Humana Inc. and its subsidiaries comply with applicable Federal civil rights laws and do not discriminate on the basis of race, color, national origin, age, disability or sex. Humana Inc. and its subsidiaries do not exclude people or treat them differently because of race, color, national origin, age, disability or sex. English: ATTENTION: If you do not speak English, language assistance services, free of charge, are available to you. Call 1‐877‐320‐1235 (TTY: 711). Español (Spanish): ATENCIÓN: Si habla español, tiene a su disposición servicios gratuitos de asistencia lingüística. Llame al 1‐877‐320‐1235 (TTY: 711). 繁體中文(Chinese)：注意：如果您使用繁體中文，您可以免費獲得語言援助 服務。請致電 1‐877‐320‐1235 (TTY: 711)。 Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen, gen sèvis èd pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐1235 (TTY: 711). Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać z bezpłatnej pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY: 711). 한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무료로 이용하실 수 있습니다. 1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십시오. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
