PROGRAM TEST
      CALL SUBR
      STOP
      END
*
* INCLUDE STATEMENT FOLLOWS...
*
       INCLUDE 'bugpd_INCLTST1'
*
* FINISH OF INCLUDE
*
*
* CONTENTS OF FILE 'INCLTST1' BELOW
*
*      SUBROUTINE SUBR
*      A=1
*      B=2
*      C=3
*      WRITE(*,*) A, B, C
*      RETURN
*      END
*
      SUBROUTINE SUBR1
      RETURN 
      END