home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / fortran / 3488 < prev    next >
Encoding:
Internet Message Format  |  1992-09-09  |  2.9 KB
  1. Path: sparky!uunet!haven.umd.edu!darwin.sura.net!nntp.msstate.edu!ukma!cs.widener.edu!iggy.GW.Vitalink.COM!lll-winken!miguel.llnl.gov!macq
  2. From: macq@miguel.llnl.gov (Don MacQueen)
  3. Newsgroups: comp.lang.fortran
  4. Subject: Re: f77 parse error (Sun 4)
  5. Message-ID: <135817@lll-winken.LLNL.GOV>
  6. Date: 9 Sep 92 17:33:04 GMT
  7. References: <135445@lll-winken.LLNL.GOV> <1992Sep5.051541.26950@chpc.utexas.edu>
  8. Sender: usenet@lll-winken.LLNL.GOV
  9. Organization: Lawrence Livermore National Laboratory
  10. Lines: 61
  11. Nntp-Posting-Host: miguel.llnl.gov
  12.  
  13. In article <1992Sep5.051541.26950@chpc.utexas.edu>, aswx266@chpc.utexas.edu (Michael Lemke) writes:
  14. |> In article <135445@lll-winken.LLNL.GOV> macq@miguel.llnl.gov (Don MacQueen) writes:
  15. |> >I have a fortran subroutine that I got from somebody.
  16. |> >It is from a complete code that was up and running
  17. |> >under VMS.
  18. |> >
  19. |> >When I try to compile with f77 Sun fortran 1.4 on a
  20. |> >Sun sparcstation IPC (Sun OS 4.1.2) I get this error
  21. |> >message:
  22. |> >
  23. |> >Bad parse, return code 1
  24. |> >
  25. |> >What is this all about? I can't see anything wrong with
  26. |> >the code.
  27. |> 
  28. |> With this little information I can only guess.  Next time provide 
  29. |> exactly what you entered and the the precise error message.
  30. |> 
  31. |> My guess is you ran into the silly/stupid/sick Sun *extension* to treat 
  32. |> a backslash in character constants as a masking symbol like in the 
  33. |> shell.  So if you have something like 'a\' the Sun doesn't see the 
  34. |> ending quote.  Try to compile with -xl.  That makes it a bit more VAX 
  35. |> conform and removes *this* bug (feature, it is documented).  But your 
  36. |> problem might something completely different.  Just my guess.
  37. |> 
  38. |> -- 
  39. |> Michael Lemke
  40. |> Astronomy, UT Austin, Texas
  41. |> (michael@io.as.utexas.edu or UTSPAN::UTADNX::IO::MICHAEL [SPAN])
  42.  
  43. -- 
  44. My thanks to Michael and a couple of people from Sun who
  45. responded privately. It turns out the problem was some
  46. extraneous parantheses in an implied do loop in a write
  47. statement. The original code compiles and runs on a Vax.
  48.  
  49. Here is an example, an excerpt:
  50.  
  51. C    ********************************************************
  52.     SUBROUTINE WRITE1(IFOUT,NSITE,ALPHA)
  53. C    ********************************************************
  54. C
  55.       dimension zseason(10),pseason(10)
  56.         WRITE(IFOUT,360) ((I,ZSEASON(I),PSEASON(I)),I=1,NSEASON)
  57.       end
  58.  
  59. I appreciate the advice to post the code. However, the error
  60. message gives absolutely no clue as to where in the code
  61. the error is, and I wasn't about to post a several hundred
  62. line subroutine.
  63.  
  64. I did provide the precise error message. There were
  65. some additional syntax error messages, but no indication that
  66. any of them were associated with the above error message. Now,
  67. of course, I know better.
  68. ---------------------------------------------------
  69. Don MacQueen                   macq@miguel.llnl.gov
  70. Lawrence Livermore Nat. Lab.
  71. 7000 East Ave., L-307          (510) 423-1062
  72. Livermore, CA 94550
  73. ---------------------------------------------------
  74.