Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!iuvax!pur-ee!hankd
From: hankd@pur-ee.UUCP (Hank Dietz)
Newsgroups: comp.lang.fortran
Subject: Re: Pointer examples and 8x
Summary: Good example of why this isn't what I call "Fortran"
Keywords: Fortran Pointers, Oxymorons
Message-ID: <12018@pur-ee.UUCP>
Date: 21 Jun 89 20:41:02 GMT
References: <638hallidayd@yvax.byu.edu>
Reply-To: hankd@pur-ee.UUCP (Hank Dietz)
Organization: Purdue University Engineering Computer Network
Lines: 15

In article <638hallidayd@yvax.byu.edu> hallidayd@yvax.byu.edu writes:
...
>      TYPE (NODE), POINTER, INTENT (IN) :: PTR
>      TYPE (NODE), POINTER :: TRAIL_PTR, TMP_PTR
...
>      TRAIL_PTR => PTR
>      DO
>         IF (.NOT. ASSOCIATED (TRAIL_PTR % NEXT)) EXIT
>         IF (NUMBER <= TRAIL_PTR % NEXT % VALUE) EXIT
>         TRAIL_PTR => TRAIL_PTR % NEXT      ! Please excuse me if this should
...

THIS is Fortran code?  Well, at least the names are all uppercase. ;-)

						-hankd@ee.ecn.purdue.edu