Path: utzoo!news-server.csri.toronto.edu!rutgers!usc!wuarchive!udel!mmdf
From: @utrcgw.utc.com:mark@ardnt1 (mark)
Newsgroups: comp.sys.amiga.programmer
Subject: Question about AC/FORTRAN and a visit from the GURU
Message-ID: <47189@nigel.ee.udel.edu>
Date: 11 Mar 91 14:41:44 GMT
Sender: mmdf@ee.udel.edu
Lines: 138


  I have a question for anyone out there that uses (or has used) the
Absoft Fortran compiler.  I recently purchased version 2.3 (I think)
of the AC/Fortran compiler from someone on the net.

  After testing the compiler with some simple little codes, I brought
home some code from work that I wanted to "port".  I made the few
changes to the source that I knew I would have to make, and attempted
to compile it.  After about 30 seconds, I said hello to the GURU
(GURU #00000003.00C12130).

  The code that I'm tried to compile is not large, approximately 20K
( 12 subroutines and 8 functions ), but I started to play around with
the stack size and heap size just in case that was the problem.  But
the guru keeps showing up.

  At this point, I tried to compile something smaller, but I would
still guru, with a similar guru number (#00000003.--------).  I'm
typing this from memory, but the smaller code was similar to the 
following:

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
c   Start of "test.f"
c
	Program Test

	Include StdIO.cmn

	Write(*,'('' TOK_STR = '',I3)') TOK_STR

	Stop
	End
c
c   End of "test.f"
c
************************************************************************
*
*  Include file : StdIO.cmn
*
	Integer
     :			  TOK_NUL
     :			, TOK_HEL
     :			, TOK_STR
     :			, TOK_NUM
     :			, Num_WS
     :			, Ipos1
     :			, Ipos2
     :			, Input_Length

	Parameter ( TOK_NUL  = 0 )
	Parameter ( TOK_HEL  = 1 )
	Parameter ( TOK_STR  = 2 )
	Parameter ( TOK_NUM  = 3 )

	Parameter ( Num_WS = 5 )

	Real
     :			  TOK_VALUE

	Character
     :			  Input_String*80
     :			, TOK_STRING*80
     :	                , DIGITS*13
     :			, WhiteSpace*6
     :			, TAB*1
     :			, BLANK*1
     :                  , COMMA*1
     :                  , EQUAL*1
     :                  , COLON*1
     :                  , SEMI*1
     :                  , QMARK*1
     :	                , SQUOTE*1
     :	                , DQUOTE*1
     :                  , NULL*1
c
c  ascii characters
c
	Parameter ( NULL   = CHAR(  0 ) )
	Parameter ( TAB    = CHAR(  9 ) )
	Parameter ( BLANK  = CHAR( 32 ) )
	Parameter ( COMMA  = CHAR( 44 ) )
	Parameter ( COLON  = CHAR( 58 ) )
	Parameter ( SEMI   = CHAR( 59 ) )
	Parameter ( EQUAL  = CHAR( 61 ) )
	Parameter ( QMARK  = CHAR( 63 ) )

	Parameter ( DQUOTE = CHAR( 34 ) )    ! <">
	Parameter ( SQUOTE = CHAR( 39 ) )    ! <'>

	DATA WhiteSpace(1:1) / BLANK / , 
     :       WhiteSpace(2:2) / TAB   / ,
     :	     WhiteSpace(3:3) / COMMA / , 
     :	     WhiteSpace(4:4) / EQUAL / ,
     :	     WhiteSpace(5:5) / COLON / ,
     :	     WhiteSpace(6:6) / SEMI  / 

	DATA DIGITS     / '0123456789+-.' /

	DATA Ipos1 / 81 /
	DATA Ipos2 / 80 /
	DATA Input_Length / 0 /

	DATA Input_String / ' ' /

	COMMON /StdIO/ 
     :		       Input_String, TOK_STRING, TOK_VALUE, WhiteSpace
     :		     , Ipos1, Ipos2, Input_Length, DIGITS

********************  end-of-file : StdIO.cmn **************************


  I compiled the above with the following:

	f77 -KU test.f

  I'm running on a A1000 with 1.5M of memory.

  If anyone can :

	offer any suggestions
	tell me what that GURU number means 
	tell me how stupid I am, because I forgot to do such-and-such

  it would be much appreciated.



Thanks in advance,

Mark

------------------------------------------------------------------------------
| Mark Stucky                         | Email:                               |
| United Technologies Research Center |   mark%ardnt1@utrcgw.utc.com         |
| East Hartford, CT.                  |   mast%utrc@utrcgw.utc.com           |
| My opinions do not necessarily represent the opinions of my employer.      |
------------------------------------------------------------------------------