
FTNCHEK Version 3.3 November 2004

File keyvars.f:

      1 	dimension common(10,10),entry(3,4),read(5,6)
      2 	logical save, stop, program
      3 	character integer, data, endif, format(10)
      4 	integer external,implicit, intrinsic, pause, write(5,6)
      5 	real complex
      6 	external complex
      7 	data data /'!'/
      8 	implicit = none
      9 	assign = block
     10 	exit = assign
     11 	pointer = pointee
     12 	double = precision
     13 	precision = double
     14 	common(9,0) = continue ** dimension
     15 	do = double*else-end+enddo
     16 	entry(external,implicit) = intrinsic - pause
     17 	program = stop .and. save
     18 	if(character .lt. close) then
     19 		equivalence = endfile
     20 	else if (rewind - backspace .lt. common(1,2)) then
     21 		goto = do
     22 		if = logical
     23 	end if
     24 	if( print .eq. if) then = to
     25 	include = inquire
     26 	open = accept
     27 	read(5,6)   write(1,2)
     28 	read(5,6) = write(1,2)
     29  6	format(i10)
     30 	format(i10) = data
     31 	return = real
     32 	subroutine = then
     33 	call call(complex,endif)
     34 	integer = data
     35 	end

Module %MAIN: prog

External subprograms referenced:

      CALL: subr      COMPLEX: real   

Variables:
 
      Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
    ACCEPT real*       ASSIGN real*    BACKSPACE real*        BLOCK real*  
 CHARACTER real*        CLOSE real*       COMMON real* 2   CONTINUE real*  
      DATA char     DIMENSION real*           DO real*       DOUBLE real*  
      ELSE real*          END real*        ENDDO real*      ENDFILE real*  
     ENDIF char         ENTRY real* 2 EQUIVALENCE real*         EXIT real*  
  EXTERNAL intg        FORMAT char  1       GOTO real*          I10 intg*  
        IF intg*     IMPLICIT intg       INCLUDE intg*      INQUIRE intg*  
   INTEGER char     INTRINSIC intg       LOGICAL intg*         NONE intg*  
      OPEN real*        PAUSE intg       POINTEE real*      POINTER real*  
 PRECISION real*        PRINT real*      PROGRAM logl          READ real* 2
      REAL real*       RETURN real*       REWIND real*         SAVE logl   
      STOP logl    SUBROUTINE real*         THEN real*           TO real*  
     WRITE intg  2

* Variable not declared. Type has been implicitly defined.


"keyvars.f", line 16: Warning in module %MAIN: Variables set but never used:
"keyvars.f", line 16:     ENTRY set
"keyvars.f", line 19:     EQUIVALENCE set
"keyvars.f", line 10:     EXIT set
"keyvars.f", line 30:     FORMAT set
"keyvars.f", line 21:     GOTO set
"keyvars.f", line 25:     INCLUDE set
"keyvars.f", line 34:     INTEGER set
"keyvars.f", line 26:     OPEN set
"keyvars.f", line 11:     POINTER set
"keyvars.f", line 17:     PROGRAM set
"keyvars.f", line 28:     READ set
"keyvars.f", line 31:     RETURN set
"keyvars.f", line 32:     SUBROUTINE set

"keyvars.f", line 26: Warning in module %MAIN: Variables used before set
"keyvars.f", line 26:     ACCEPT used; never set
"keyvars.f", line 20:     BACKSPACE used; never set
"keyvars.f", line 9:     BLOCK used; never set
"keyvars.f", line 18:     CHARACTER used; never set
"keyvars.f", line 18:     CLOSE used; never set
"keyvars.f", line 14:     CONTINUE used; never set
"keyvars.f", line 14:     DIMENSION used; never set
"keyvars.f", line 15:     ELSE used; never set
"keyvars.f", line 15:     END used; never set
"keyvars.f", line 15:     ENDDO used; never set
"keyvars.f", line 19:     ENDFILE used; never set
"keyvars.f", line 16:     EXTERNAL used; never set
"keyvars.f", line 30:     I10 used; never set
"keyvars.f", line 25:     INQUIRE used; never set
"keyvars.f", line 16:     INTRINSIC used; never set
"keyvars.f", line 22:     LOGICAL used; never set
"keyvars.f", line 8:     NONE used; never set
"keyvars.f", line 16:     PAUSE used; never set
"keyvars.f", line 11:     POINTEE used; never set
"keyvars.f", line 24:     PRINT used; never set
"keyvars.f", line 31:     REAL used; never set
"keyvars.f", line 20:     REWIND used; never set
"keyvars.f", line 17:     SAVE used; never set
"keyvars.f", line 17:     STOP used; never set
"keyvars.f", line 24:     TO used; never set

"keyvars.f", line 12: Warning in module %MAIN: Variables may be used before
 set:
"keyvars.f", line 12:     PRECISION used
"keyvars.f", line 13:     PRECISION set


"keyvars.f", line 20: Warning in module %MAIN: Names longer than 6 chars
 (nonstandard):
"keyvars.f", line 20:     BACKSPACE first occurrence
"keyvars.f", line 18:     CHARACTER first occurrence
"keyvars.f", line 5:     COMPLEX defined
"keyvars.f", line 14:     CONTINUE first occurrence
"keyvars.f", line 14:     DIMENSION first occurrence
"keyvars.f", line 19:     ENDFILE first occurrence
"keyvars.f", line 19:     EQUIVALENCE first occurrence
"keyvars.f", line 4:     EXTERNAL declared
"keyvars.f", line 4:     IMPLICIT declared
"keyvars.f", line 25:     INCLUDE first occurrence
"keyvars.f", line 25:     INQUIRE first occurrence
"keyvars.f", line 3:     INTEGER declared
"keyvars.f", line 4:     INTRINSIC declared
"keyvars.f", line 22:     LOGICAL first occurrence
"keyvars.f", line 11:     POINTEE first occurrence
"keyvars.f", line 11:     POINTER first occurrence
"keyvars.f", line 12:     PRECISION first occurrence
"keyvars.f", line 2:     PROGRAM declared
"keyvars.f", line 32:     SUBROUTINE first occurrence
I/O Operations:

     Unit ID Unit No. Access Form Operation   Line
             5          SEQ  FMTD READ         27 

Statement labels defined:

    Label   Line  StmtType
      <6>     29    format

     36 	subroutine call (function, character)
     37 	external function
     38 	character character
     39 	real = 2.3
     40 	complex = function(real)
     41 	return
     42 	end

Module CALL: subr

External subprograms referenced:

  FUNCTION: real*  

Variables:
 
      Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
 CHARACTER char       COMPLEX real*         REAL real*  

* Variable not declared. Type has been implicitly defined.


"keyvars.f", line 38: Warning in module CALL: Variables declared but never
 referenced:
"keyvars.f", line 38:     CHARACTER declared (dummy argument)

"keyvars.f", line 40: Warning in module CALL: Variables set but never used:
"keyvars.f", line 40:     COMPLEX set


"keyvars.f", line 38: Warning in module CALL: Names longer than 6 chars
 (nonstandard):
"keyvars.f", line 38:     CHARACTER declared
"keyvars.f", line 40:     COMPLEX first occurrence
"keyvars.f", line 36:     FUNCTION defined
     43 	function complex(do)
     44 	dimension = do + 1
     45 	external = 1
     46 	complex = dimension/external
     47 	return
     48 	end

Module COMPLEX: func: real*

Variables:
 
      Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
   COMPLEX real*    DIMENSION real*           DO real*     EXTERNAL real*  

* Variable not declared. Type has been implicitly defined.



"keyvars.f", line 43: Warning in module COMPLEX: Names longer than 6 chars
 (nonstandard):
"keyvars.f", line 43:     COMPLEX declared
"keyvars.f", line 44:     DIMENSION first occurrence
"keyvars.f", line 45:     EXTERNAL first occurrence

"keyvars.f": Nonportable usage: File contains tabs

 0 syntax errors detected in file keyvars.f
 12 warnings issued in file keyvars.f

