C	PROGRAM TO TEST SEMAPHORE OPERATION
C	WRITTEN FEB 17, 1983 BY HARRY ATHERTON
C
C	THIS PROGRAM TESTS THAT A SECOND P-OPERATION TO
C		THE SAME SEMAPHORE WILL BE REJECTED AND
C		THE TASK WILL NOT BE SUSPENDED
C
  100 CONTINUE
	CALL SEMP(1,IDS)
	WRITE(5,200)IDS
  200 FORMAT('$P OPERATION CALLED FIRST TIME, IDS =',I5,' ; HIT CR ')
	READ(5,300)
  300 FORMAT(A1)
	CALL SEMP(1,IDS)
	WRITE(5,400)IDS
  400 FORMAT('$P OPERATION CALLED SECOND TIME, IDS =',I5,' ; HIT CR ')
	READ(5,300)
	CALL SEMV(1,IDS)
	WRITE(5,500)IDS
  500 FORMAT(' V OPERATION CALLED, IDS =',I5)
	GO TO 100
	END