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