home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / fortran / 4350 < prev    next >
Encoding:
Internet Message Format  |  1992-11-18  |  1.6 KB
  1. Path: sparky!uunet!sun-barr!olivea!spool.mu.edu!umn.edu!mmm.serc.3m.com!mmc.mmmg.com!timbuk.cray.com!walter.cray.com!gerardo
  2. From: gerardo@ferris.cray.com (Gerardo Cisneros)
  3. Newsgroups: comp.lang.fortran
  4. Subject: Re: How does one return a logical value...???
  5. Message-ID: <1992Nov18.085618.23750@walter.cray.com>
  6. Date: 18 Nov 92 14:56:18 GMT
  7. References: <BxwrJC.GME@cs.uiuc.edu> <1edccoINNkab@early-bird.think.com>
  8. Sender: gerardo@ferris (Gerardo Cisneros)
  9. Organization: Cray Research, Inc.
  10. Lines: 22
  11. Originator: gerardo@ferris
  12. Nntp-Posting-Host: ferris.cray.com
  13.  
  14.  
  15. In article <1edccoINNkab@early-bird.think.com>, sandee@Think.COM (Daan Sandee) writes:
  16. > In article <BxwrJC.GME@cs.uiuc.edu>, ctaylor@cs.uiuc.edu (Conrad W Taylor) writes:
  17. > |>         IF (CheckActivity(previous, ROWS, COLS) .EQ.  .TRUE.) THEN
  18. > |>           uncontrol = uncontrol + 1
  19. > |>         ENDIF
  20. > |> 
  21. > |> My compiler says that I have mixed types when I use .TRUE. .  
  22. > 
  23. > I don't know why it would object to .TRUE. Like that, (CAPITALS, dots
  24. > immediately adjoining the keyword (yes, I've known compilers to complain
  25. > about . TRUE .)) it is standard Fortran. [...]
  26.  
  27. It is not standard Fortran.  ANSI X3.9-1978 allows relational expressions
  28. e1 relop e2 only for e1 and e2 both arithmetic expressions or both
  29. character expressions.  If CheckActivity is really declared as a LOGICAL
  30. FUNCTION, then there is no need (and no point) to compare it to .TRUE.
  31. -- 
  32. Gerardo Cisneros        |Cray Research de M'exico, S.A. de C.V.
  33. gerardo.cisneros@cray.com    |Camino a Sta. Teresa 480-A #302
  34. (+52+5)622-8584         |14020 Tlalpan, D.F., MEXICO
  35.  Anything I said sound like an opinion? Then it's no one's but my own.
  36.