FTNCHEK Version 3.3 November 2004

File do_enddo.f:

      4       do i=1,100
              ^
Warning near line 4 col 7: Nonstandard syntax
      6       enddo
              ^
Warning near line 6 col 7: Nonstandard syntax
      7       print *,sum  !@#$*&
                           ^
Warning near line 7 col 20: Nonstandard syntax: inline comment
     10       do while(other_sum .lt. 2000)
              ^
Warning near line 10 col 7: Nonstandard syntax
     13 ! here we have a nonstandard comment
        ^
Warning near line 13 col 1: Nonstandard syntax: inline comment
     12       end do
              ^
Warning near line 12 col 7: Nonstandard syntax
     15       dowhile ( x .ne. (1,2))
              ^
Warning near line 15 col 7: Nonstandard syntax
     17       end do
              ^
Warning near line 17 col 7: Nonstandard syntax
     18       do 100 while (.true.)
              ^
Warning near line 18 col 7: Nonstandard syntax
     20          if( sum .eq. 0.0 ) exit
                                    ^
Warning near line 20 col 29: Nonstandard syntax: EXIT statement
     22       do 200, while (.false.)
              ^
Warning near line 22 col 7: Nonstandard syntax
     24  200  end do
              ^
Warning near line 24 col 7: Nonstandard syntax

Module ABC: subr

Variables:
 
      Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
         I intg*    OTHER_SUM real*          SUM real*            X real*  

* Variable not declared. Type has been implicitly defined.


Warning in module ABC: Variables may be used before set:
    X used at line 15
    X set at line 16

I/O Operations:

     Unit ID Unit No. Access Form Operation   Line
           *            SEQ  FMTD PRINT         7     14 
           *            SEQ  FMTD READ         19 
           *            SEQ  FMTD WRITE        23 

Statement labels defined:

    Label   Line  StmtType    Label   Line  StmtType
    <100>     21      exec    <200>     24      exec

     26       include 'average.f'
              ^
Warning near line 26 col 7: Nonstandard syntax
Including file average.f:
     16             COMPAV = SUM/COUNT
                           ^
Warning near line 16 col 20 file average.f: integer quotient expr SUM/COUNT 
 converted to real

Module COMPAV: func: real

Variables:
 
      Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
    COMPAV real         COUNT intg             I intg*            J intg   
     SCORE intg  1        SUM intg   

* Variable not declared. Type has been implicitly defined.


Warning in module COMPAV in file average.f: Variables may be used before set:
    SUM used at line 14 file average.f
     included at line 26 file do_enddo.f
    SUM set at line 14 file average.f
     included at line 26 file do_enddo.f


Statement labels defined:

    Label   Line  StmtType
     <30>  15[1]      exec

________

  [1] -- in include file: average.f


Module AVENUM: prog

External subprograms referenced:

    COMPAV: real*  

Variables:
 
      Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
       AVG real         COUNT intg             I intg        MAXNOS intg*  
      NUMS real  1

* Variable not declared. Type has been implicitly defined.


Warning in module AVENUM in file average.f: Variables set but never used:
    AVG set at line 43 file average.f
     included at line 26 file do_enddo.f

I/O Operations:

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

Statement labels defined:

    Label   Line  StmtType    Label   Line  StmtType
     <80>  42[1]      exec    <100>  43[1]      exec

________

  [1] -- in include file: average.f


 0 syntax errors detected in file do_enddo.f
 20 warnings issued in file do_enddo.f

Warning: Subprogram ABC never invoked
    Defined in module ABC line 2 file do_enddo.f

Warning: Subprogram COMPAV argument data type mismatch at position 1:
    Dummy arg SCORE in module COMPAV line 10 file average.f (included at line 
 26 in do_enddo.f) is type intg
    Actual arg NUMS in module AVENUM line 43 file average.f (included at line 
 26 in do_enddo.f) is type real