Source: ERCN85:INCLTEST         Compiled: 10/09/87   15.58.14
Object: ERCN85:T#OBJECT

Parms set: NOWARNINGS,XREF,MAP



     Edinburgh Amdahl Fortran77 Compiler Version 2.13


     1           PROGRAM TEST
     2           CALL SUBR
     3           STOP
     4           END



Identifier          Attributes                               References

SUBR        external subroutine                         2
TEST        program                                     1


     5     *
     6     * INCLUDE STATEMENT FOLLOWS...
     7     *
     8            INCLUDE 'INCLTST1'
     9     *
    10     * FINISH OF INCLUDE
    11     *
    12     *
    13     * CONTENTS OF FILE 'INCLTST1' BELOW
    14     *
    15     *      SUBROUTINE SUBR
    16     *      A=1
    17     *      B=2
    18     *      C=3
    19     *      WRITE(*,*) A, B, C
    20     *      RETURN
    21     *      END
    22     *

Error 316  A main program unit has already been compiled

     1           SUBROUTINE SUBR
                 ^
Error 100  Syntax error (at or before position  7)

     2           A=1
     3           B=2
     4           C=3
     5           WRITE(*,*) A, B, C
     6           RETURN

Error 202  RETURN not allowed in main program

     7           END



Identifier          Attributes                               References

A           variable, implicit real*4                   2    5
B           variable, implicit real*4                   3    5
C           variable, implicit real*4                   4    5
F_MAIN      program                                     8


    23           SUBROUTINE SUBR1
    24           RETURN 
    25           END



Identifier          Attributes                               References

SUBR1       subroutine                                 23