c
c                       FORCHECK
c               Subprogram Verification
        PROGRAM Inter
        CALL SysIntr(1)
        PRINT *, Truncate(3., 1.5)
        END

        INTEGER FUNCTION SysIntr(Iarg)
        SysIntr = Iarg
        END

        INTEGER FUNCTION Truncate(Arg1, Arg2)
        REAL Arg1, Arg2
        Truncate = INT(Arg1/Arg2)
        END

global program analysis:


(file: subtyp.for, line: 5)
  SYSINTR, referenced in INTER
**[514 E] subroutine/function conflict

(file: subtyp.for, line: 6)
  TRUNCATE, referenced in INTER
**[532 E] type conflict with type of function