This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]
Other format:	[Raw text]

Re: Implementing ENTRY

From: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>
To: GCC Fortran mailing list <fortran at gcc dot gnu dot org>
Date: Thu, 17 Jun 2004 01:32:57 +0200
Subject: Re: Implementing ENTRY
References: <40D0D429.70505@physik.uni-muenchen.de>

Tobias Schlüter wrote:

      SELECT CASE 1
      CASE (1 1)
        GOTO 100000
      CASE (2 2)
        GOTO 100001
      END SELECT
      RETURN
      ENTRY bar
100000 CONTINUE
      ASSIGN i 0
      RETURN
      ENTRY blubb
100001 CONTINUE
      RETURN

foo

I had missed to add a goto/label pair for the first code block in the function. Will fix this tomorrow, no need to tell me.

- Tobi

References:
- Implementing ENTRY
  - From: Tobias Schlüter

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]