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