C	.TITLE	ARGTST
C
C  18 FEB 72
C
C  THIS PROGRAM TESTS FORTRAN TO MACRO SUBROUTINE FETCHING .POINT
C  .ARG(SUBR) AND .ARG(MACRO) TO SWAP ARGUMENTS.
C
1     FORMAT (' BEFORE SWAPPING WITH .POINT      I=',I7,' J=',I7)
2     FORMAT ('  AFTER SWAPPING WITH .POINT      I=',I7,' J=',I7)
3     FORMAT ('-BEFORE SWAPPING WITH .ARG(SUBR)  I=',I7,' J=',I7)
4     FORMAT ('  AFTER SWAPPING WITH .ARG(SUBR)  I=',I7,' J=',I7)
5     FORMAT ('-BEFORE SWAPPING WITH .ARG(MACRO) I=',I7,' J=',I7)
6     FORMAT ('  AFTER SWAPPING WITH .ARG(MACRO) I=',I7,' J=',I7)
C
C  USING .POINT
C
      I=11111
      J=99999
      PRINT 1,I,J
      CALL TESTP (I,J)
      PRINT 2,I,J
C
C  USING .ARG(SUBR)
C
      I=11112
      J=99998
      PRINT 3,I,J
      CALL TESTAS (I,J)
      PRINT 4,I,J
C
C  USING .ARG(MACRO)
C
      I=11122
      J=99988
      PRINT 5,I,J
      CALL TESTAM (I,J)
      PRINT 6,I,J
      STOP 1
      END
