
FTNCHEK Version 3.3 November 2004

File model.f90:

      1 !       AUTHORS: MIKE MYERS AND LUCIA SPAGNUOLO
      2 !       DATE:    MAY 8, 1989
      3 
      4 !       Variables:
      5 !               SCORE -> an array of test scores
      6 !               SUM ->   sum of the test scores
      7 !               COUNT -> counter of scores read in
      8 !               I ->     loop counter
      9 
     10 REAL FUNCTION COMPAV(SCORE,COUNT)
     11   INTEGER SUM,COUNT,J,SCORE(5)
     12 
     13   DO I = 1,COUNT
     14      SUM = SUM + SCORE(I)
     15   END DO
     16   COMPAV = SUM/COUNT
                 ^
Warning near line 16 col 10: integer quotient expr SUM/COUNT  converted to
 real
     17 END FUNCTION COMPAV

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: Variables declared but never referenced:
    J declared at line 11

Warning in module COMPAV: Variables may be used before set:
    SUM used at line 14
    SUM set at line 14

     18 
     19 
     20 PROGRAM AVENUM
     21 !
     22 !                       MAIN PROGRAM
     23 !
     24 !       AUTHOR:   LOIS BIGBIE
     25 !       DATE:     MAY 15, 1990
     26 !
     27 !       Variables:
     28 !               MAXNOS -> maximum number of input values
     29 !               NUMS    -> an array of numbers
     30 !               COUNT   -> exact number of input values
     31 !               AVG     -> average returned by COMPAV
     32 !               I       -> loop counter
     33 !
     34 
     35   PARAMETER(MAXNOS=5)
     36   INTEGER I, COUNT
     37   REAL NUMS(MAXNOS), AVG
     38   COUNT = 0
     39   DO I = 1,MAXNOS
     40      READ (5,*,END=100) NUMS(I) ; COUNT = COUNT + 1
     41 
     42   END DO
     43 100 AVG = COMPAV(NUMS, COUNT)
     44 END PROGRAM AVENUM

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: Variables set but never used:
    AVG set at line 43

I/O Operations:

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

Statement labels defined:

    Label   Line  StmtType
    <100>     43      exec


 0 syntax errors detected in file model.f90
 6 warnings issued in file model.f90

Warning: Subprogram COMPAV argument data type mismatch at position 1:
    Dummy arg SCORE in module COMPAV line 10 file model.f90 is type intg
    Actual arg NUMS in module AVENUM line 43 file model.f90 is type real
