home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / sys / sgi / 13141 < prev    next >
Encoding:
Internet Message Format  |  1992-09-01  |  3.9 KB
  1. Path: sparky!uunet!olivea!sgigate!odin!dinkum!calvin
  2. From: calvin@dinkum.wpd.sgi.com (Calvin H. Vu)
  3. Newsgroups: comp.sys.sgi
  4. Subject: Re: Fortran problem on going from 4.0.1 to 4.0.5
  5. Message-ID: <1992Sep1.160945.6058@odin.corp.sgi.com>
  6. Date: 1 Sep 92 16:09:45 GMT
  7. References: <1992Aug31.161432.1@vaxa.strath.ac.uk>
  8. Sender: news@odin.corp.sgi.com (Net News)
  9. Organization: Silicon Graphics, Inc.  Mountain View, CA
  10. Lines: 102
  11. Nntp-Posting-Host: dinkum.wpd.sgi.com
  12.  
  13. In <1992Aug31.161432.1@vaxa.strath.ac.uk> cbas25@vaxa.strath.ac.uk writes:
  14.  
  15. | The following fortran program illustrates a problem which has arisen on
  16. | going from IRIX 4.0.1 to IRIX 4.0.5.
  17.     I don't think it will work in any releases without the -static
  18.     flag.
  19. | 
  20. | C-------------------------------cut here-------------------------
  21. |       PROGRAM TESTPRO
  22. |       COMMON/A/XA(10)
  23. |       COMMON/B/XB(10)
  24. |       DO 100 I = 1,10
  25. |            XA(I) = FLOAT(I)
  26. |            XB(I) = 10.0 - FLOAT(I)
  27. | 100   CONTINUE
  28. | 
  29. |       WRITE (*,1000)
  30. | 1000  FORMAT ('Enter to numbers between 1 and 10 inclusive')
  31. |       READ  (*,*) K,L
  32. | 
  33. |       CALL DIFF1 (XA)
  34. |       CALL DIFF2 (XB)
  35. |       CALL DIFF3 (K,L,RESULT)
  36. |       WRITE (*,*) RESULT
  37. | 
  38. |       CALL ONCE (XA,XB,K,L,RESULT)
  39. |       WRITE (*,*) RESULT
  40. | 
  41. |       STOP
  42. |       END
  43. | 
  44. |       SUBROUTINE ONCE (XR,XS,I,J,D)
  45. |       DIMENSION XR(10)
  46. |       DIMENSION XS(10)
  47. |       write (*,*) i,j,xr(i),xs(j)
  48. |       D = XR(I) - XS(J)
  49. |       RETURN
  50. |       END
  51. | 
  52. |       SUBROUTINE DIFFER
  53. |       SAVE
  54. |       DIMENSION XR(10)
  55. |       DIMENSION XS(10)
  56. |       ENTRY DIFF1 (XR)
  57. |       RETURN
  58. |       ENTRY DIFF2 (XS)
  59. |       RETURN
  60. |       ENTRY DIFF3 (I,J,D)
  61. |       write (*,*) i,j,xr(i),xs(j)  !Program fails here when '-static' not used
  62. |       D = XR(I) - XS(J)
  63. |       RETURN
  64. |       END 
  65.  
  66.     Everything Dave Ciemewics said regarding the Fortran standard
  67. applies.  However, the reason your program works with -static is because
  68. that flag (which is almost a must for any programs written for the VMS
  69. environment and use its extensions liberally) is because the -static flag
  70. also triggers a VMS extension which saves the dummy arguments in a 
  71. multiple-entry subroutine in a static location.  Therefore, with the
  72. -static flag your program will have these system-dependent non-ANSI 
  73. side effects:
  74.  
  75.        CALL DIFF1 (XA)    ! save the address of XA in a static location
  76.             ! reserved for the dummy argument XR
  77.             ! of the multiple-entry subroutine DIFFER
  78.        CALL DIFF2 (XB)    ! save the address of XB in a static location
  79.             ! reserved for the dummy argument XS
  80.             ! of the multiple-entry subroutine DIFFER
  81.        CALL DIFF3 (K,L,RESULT)    ! calling DIFF3 assuming that the dummy
  82.                 ! arguments XR and XS have been saved
  83.                 ! by the previous two calls to contain the
  84.                 ! addresses of XA and XB
  85.  
  86.     If we just look at this simple example then it could be much
  87. improved by adding two more dummy argument XR and XS to the argument list
  88. of DIFF3 (and call it with the proper actual arguments of course).  In that
  89. way, you only need one call to DIFF3 instead of three (to DIFF1, DIFF2, and
  90. DIFF3) and it is also portable across all platforms.
  91.  
  92.     I guess this side effect of the -static flag could have been 
  93. implemented as a separate option, e.g. -vms_entry, to avoid the confusion
  94. why it works with -static and not with SAVE statement.  But, since it has
  95. already done that way I'll make a point to document this side-effect
  96. in the man f77 page so it won't cause this confusion.
  97.  
  98. | Has anyone had similar problems.
  99. | 
  100. | Peter Bladon
  101. | University of Strathclyde
  102. | Department of Pure and Applied Chemistry
  103. | Glasgow G1 1XL      
  104. | 
  105. | e-mail  cbas25%vaxa.strath.ac.uk
  106.  
  107. Hope it helps,
  108.  
  109. - calvin
  110. --
  111. -----------------------------------------------------------------------------
  112. Calvin H. Vu               | "We are each of us angels with only one
  113. Silicon Graphics Computer Systems  | wing.  And we can only fly embracing
  114. calvin@sgi.com   (415) 962-3679       | each other."
  115.