home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / fortran / 4726 < prev    next >
Encoding:
Text File  |  1992-12-15  |  1.2 KB  |  42 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: SUMMARY: CHARACTER FUNCTION as dummy argument
  5. Message-ID: <1992Dec15.192100.310@chpc.utexas.edu>
  6. Organization: The University of Texas System - CHPC
  7. References: <BURLEY.92Dec15044825@apple-gunkies.gnu.ai.mit.edu>
  8. Date: Tue, 15 Dec 92 19:21:00 GMT
  9. Lines: 31
  10.  
  11. In article <BURLEY.92Dec15044825@apple-gunkies.gnu.ai.mit.edu> burley@apple-gunkies.gnu.ai.mit.edu (Craig Burley) writes:
  12. [...]
  13. >
  14. >If anyone has a system that supports the code in Sample 1 (like VAX/VMS
  15. >FORTRAN), it'd be interesting to see how well it handled the following:
  16. >
  17. >C Sample 6
  18. >    CHARACTER*(*) CFUNC
  19. >    EXTERNAL CFUNC
  20. >    CALL X (CFUNC)
  21. >    PRINT *, 'Done!'
  22. >    END
  23. [rest of code deleted]
  24.  
  25. Compiled on VMS:
  26.  
  27. $ for foo
  28.  
  29. %FORT-F-ADJLENUSE, Passed length character name used in invalid context 
  30.      [CFUNC] in module FOO$MAIN 
  31. %FORT-F-ENDNOOBJ, IO$DUC0:[MICHAEL]FOO.FOR;2 completed with 1 diagnostic - objec
  32. t deleted
  33.  
  34.  
  35. So it doesn't seem to be legal but I can't quote the standard.
  36.  
  37. Michael
  38. -- 
  39. Michael Lemke
  40. Astronomy, UT Austin, Texas
  41. (michael@io.as.utexas.edu or UTSPAN::UTADNX::IO::MICHAEL [SPAN])
  42.