home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / fortran / 4369 < prev    next >
Encoding:
Text File  |  1992-11-19  |  2.6 KB  |  79 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!cs.utexas.edu!hermes.chpc.utexas.edu!michael
  3. From: michael@chpc.utexas.edu (Michael Lemke)
  4. Subject: Re: really weird compiler hang!
  5. Message-ID: <1992Nov19.194741.26006@chpc.utexas.edu>
  6. Organization: The University of Texas System - CHPC
  7. References: <EJH.92Nov19092632@khonshu.colorado.edu>
  8. Date: Thu, 19 Nov 92 19:47:41 GMT
  9. Lines: 68
  10.  
  11. In article <EJH.92Nov19092632@khonshu.colorado.edu> ejh@khonshu.colorado.edu (Edward J. Hartnett) writes:
  12. >
  13. [notes that following routine hangs Sun's compiler:]
  14. >
  15. >      subroutine get_days(LU, h, typenum, filein)
  16. >ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
  17. >c
  18. >      implicit none
  19. >c
  20. >      structure /cond_samp_hdr/
  21. >         integer data_rate, num_chan, num_ind_val
  22. >         integer start_jday, stop_jday
  23. >         real start_time, stop_time
  24. >         character*80 data_type
  25. >         character*80 set_name
  26. >         character*100 comment1, comment2, comment3
  27. >         character*100 reserved
  28. >      end structure
  29. >c
  30. >      record /cond_samp_hdr/ h
  31. >c
  32. >      date = h.set_name(lnblnk(h.set_name)-7:lnblnk(h.set_name))
  33. >      end
  34. >
  35. >
  36. >Here's what make gives me:
  37. >cd /home/khonshu/ejh/cond_samp/atob_src/
  38. >f77 -c -e test.f
  39. >test.f:
  40. >    get_days:
  41. >
  42. >
  43. >Can anyone explain this bizarre behavior? I'm running this on a Sun
  44. >IPC, running 4.1.1, using the Sun fortran compiler.
  45. >--
  46. >Edward Hartnett            ejh@khonshu.colorado.edu
  47. >
  48.  
  49.  
  50. This is what I got on our Sparc station after a few seconds:
  51.  
  52.  
  53. version-id of "/usr/lang/SC1.0.1/f77pass1":          SC1.0 Fortran V1.4, Patch Release 6, 13Apr1992
  54. /usr/lang/SC1.0.1/f77pass1 "-P -cg87" x.f /tmp/f77pass1.16664.s.0.s /tmp/f77pass1.16664.i.1.s /tmp/f77pass1.16664.d.2.s
  55. x.f:
  56.     get_days:
  57. "x.f", line 18: Error: attempt to use undefined variable "lu"
  58. "x.f", line 18: Error: attempt to use undefined variable "typenum"
  59. "x.f", line 18: Error: attempt to use undefined variable "filein"
  60. "x.f", line 18: Error: attempt to use undefined variable "date"
  61. "x.f", line 18: Error: attempt to use untyped function "lnblnk"
  62. "x.f", line 18: Error: attempt to use untyped function "lnblnk"
  63. "x.f", line 18: Error: attempt to use untyped function "lnblnk"
  64. "x.f", line 18: Error: attempt to use untyped function "lnblnk"
  65. "x.f", line 18: Error: attempt to use untyped function "lnblnk"
  66. rm /tmp/f77pass1.16664.s.0.s
  67. rm /tmp/f77pass1.16664.i.1.s
  68. rm /tmp/f77pass1.16664.d.2.s
  69. Compilation failed
  70.  
  71.  
  72. Maybe fixing the declarations helps or setting -O1 to turn off optimization.
  73.  
  74.  
  75. -- 
  76. Michael Lemke
  77. Astronomy, UT Austin, Texas
  78. (michael@io.as.utexas.edu or UTSPAN::UTADNX::IO::MICHAEL [SPAN])
  79.