X-pop3-spooler:	POP3MAIL 2.1.0 b 4 980420 -bs-
From:	Anand Kolatkar <anandk AT jocose DOT stanford DOT edu>
Message-Id:	<199808030015.AA32633@jocose.stanford.edu>
Subject:	Re: pgcc 1.0.3a and intrinsic functions
To:	pcg AT goof DOT com (Marc Lehmann)
Date:	Sun, 2 Aug 1998 17:15:29 -0700 (PDT)
In-Reply-To:	<19980803020311.15833@cerebro.laendle> from "Marc Lehmann" at Aug 3, 98 02:03:11 am
X-Mailer:	ELM [version 2.4 PL25]
Mime-Version:	1.0
Sender:	Marc Lehmann <pcg AT goof DOT com>
Status:	RO
X-Status:	A
Lines:	64

	I DO get the errors with eg77 -o test test.f.

	I get NO errors with eg77 -c -o test test.f, however, I get a
	file named test which is NOT an executable.

	I have included the same test program but with the EXTERNAL
	statement and a write statement which spots out any add'l
	arguments when the executable invoked.  So, I can get the
	following program to compile using eg77 -o test test.f.
	If I run the resulting binary as 'test blah', I get output
	that reads 	'argument is
			blah'      

	(note the carriage return)  This is the way it should run.
	
---------------------------- CUT HERE -------------------------------
C	Main program
C	All this does is pass the arguments INPUT and SLO
C	to subroutine SYGARG which calls the getarg function
C	

      CHARACTER*80 INPUT
      INTEGER SLOT

C
C Read command line flags, if any
C
C      LAST = SYNARG ()
      SLOT = 1
C
      CALL SYGARG (INPUT, SLOT)
      
	write(6,*) 'agrument is', input

      STOP
      END

C----------------------------------
      SUBROUTINE SYGARG (ARG, SLOT)
	EXTERNAL getarg
C
      CHARACTER*(*) ARG
      INTEGER       SLOT
C
C ARG   (Out) argument in invoking command line
C SLOT  (In)  number of argument in invoking command line
C
      CALL getarg (SLOT, ARG)
C
      RETURN
      END
---------------------------- CUT HERE -------------------------------


-- 
<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
        Anand Kolatkar                    	  Stanford University
email: anandk AT galactose DOT stanford DOT edu		Dept. Structural Biology
Lab Phone: (650) 725-4625 or -7866		Fairchild Building D-143
      FAX: (650) 723-8464			Stanford, CA. 94305-5126

	Home Page - http://galactose.stanford.edu/~anandk
<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

- Raw text -