
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.


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

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

Warning in module %MAIN: Variables may be used before set:
    PRECISION used at line 12
    PRECISION set at line 13


Warning in module %MAIN: Names longer than 6 chars (nonstandard):
    BACKSPACE first occurrence at line 20
    CHARACTER first occurrence at line 18
    COMPLEX defined at line 5
    CONTINUE first occurrence at line 14
    DIMENSION first occurrence at line 14
    ENDFILE first occurrence at line 19
    EQUIVALENCE first occurrence at line 19
    EXTERNAL declared at line 4
    IMPLICIT declared at line 4
    INCLUDE first occurrence at line 25
    INQUIRE first occurrence at line 25
    INTEGER declared at line 3
    INTRINSIC declared at line 4
    LOGICAL first occurrence at line 22
    POINTEE first occurrence at line 11
    POINTER first occurrence at line 11
    PRECISION first occurrence at line 12
    PROGRAM declared at line 2
    SUBROUTINE first occurrence at line 32
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.


Warning in module CALL: Variables declared but never referenced:
    CHARACTER declared at line 38 (dummy argument)

Warning in module CALL: Variables set but never used:
    COMPLEX set at line 40


Warning in module CALL: Names longer than 6 chars (nonstandard):
    CHARACTER declared at line 38
    COMPLEX first occurrence at line 40
    FUNCTION defined at line 36
     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.



Warning in module COMPLEX: Names longer than 6 chars (nonstandard):
    COMPLEX declared at line 43
    DIMENSION first occurrence at line 44
    EXTERNAL first occurrence at line 45

Nonportable usage: File contains tabs

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

