Terug naar de homepage van Forcheck
Forcheck generates a source-code listing and program-unit cross-references


FORCHECK PC/Windows V14.6.08 gfortran        2015-05-27 19:30:21  page:    1
fckdem.for  /RI/OB


       1       PROGRAM FCKDEM
       2 C================================================================
       3 C
       4 C     this is a FORTRAN-77 demonstration program
       5 C     to show FORCHECK output
       6 C
       7 C================================================================
       8 C
       9       PARAMETER (LUN=1)
      10 C
      11       INCLUDE 'FCKDEM.INC'
    11.1       COMMON /COM/ NAME1
      12       COMMON/COM1/K
      13       INTEGER IAR(10)
      14       EQUIVALENCE (NAME,NAME1)
      15       CHARACTER*1 NAME(6), name1*6

(file: fckdem.for, line: 15)
  *1
**[ 96 W] obsolescent Fortran feature

(file: fckdem.for, line: 15)
  *6
**[ 96 W] obsolescent Fortran feature

      16 C
      17       DATA L1/1/, LABEL/1000/
      18 C
      19 C================================================================
      20 C
      21       DO 10 I = 1, 6
      22         NAME(I) = ' '
      23  10   CONTINUE
      24       NAME(7) = ' '

(file: fckdem.for, line: 24)
  7
**[327 E] subscript out of range

      25 C
      26       L = A + FUN(1.)

(file: fckdem.for, line: 26)
  A
**[312 E] no value assigned to this variable

(file: fckdem.for, line: 26)
  L = A + FUN(1.)
**[699 I] implicit conversion of real or complex to integer

      27       CALL FCKSUB (NAME, IAR, 2)
      28 C
      29       WRITE(LUN,LABEL), 'European Software'

(file: fckdem.for, line: 29)
  LABEL
**[308 E] no statement label assigned to this variable

(file: fckdem.for, line: 29)
  LABEL
**[ 98 W] deleted Fortran feature

(file: fckdem.for, line: 29)
  , 'European Software
**[448 W] "," not allowed

      30       READ *,I
      31  1000 FORMAT(A)
      32 C
      33       END



FORCHECK PC/Windows V14.6.08     FCKDEM      2015-05-27 19:30:21  page:    2
fckdem.for  /RI/OB


(file: fckdem.for, line: 2)
**[ 60 W] fixed source form used


ENTRY       TYPE RANK NARG LINES

   FCKDEM       P             1#


LABEL TYPE LINES

    10 L     21    23#
  1000 F     31#

(file: fckdem.for, line: 31)
  1000
**[125 I] format statement unreferenced


CONSTANT TYPE RANK SIZE LINES

   LUN    I           4    9#   29


Size of referenced named local constants:         4 bytes


VARIABLE TYPE RANK SIZE OPERATIONS  LINES

   A      R           4          R    26
   I      I           4       IL R    21#   22    30#
   IAR    I     1    40         S     13    27
   K      I           4 C*            12
   L      I           4      A        26#
   L1     I           4     D         17#
   LABEL  I           4     D    R    17#   29
   NAME  CH(1)  1     6 C  Q A  S     14    15    22#   24#   27
   NAME1 CH(6)        6 C  Q        11.1    14    15

(file: fckdem.for, line: 26)
  A
**[307 E] variable not defined

(file: fckdem.for, line: 26)
  L
**[323 I] variable unreferenced

(file: fckdem.for, line: 17)
  L1
**[681 I] not used

(file: fckdem.for, line: 17)
  LABEL
**[308 E] no statement label assigned to this variable


Size of local static variables:        60 bytes


SUBPROGRAM  TYPE RANK NARG OPERATIONS  LINES

   FCKSUB       S       3           R    27
   FUN     R    F       1           R    26


COMMON_BLOCK TYPE SIZE       OPERATIONS  LINES

  /COM/       CH     6       C  Q A  S   11.1
  /COM1/       N     4       C*            12

(file: fckdem.for, line: 12)
  /COM1/
**[676 I] none of the objects of the common block is used


UNIT_IDENTIFIER  ACCESS OPERATIONS    LINES

   LUN               F    W             29

previous page top page
Forcheck
Contact