PROGRAM BOOLTEST
      EXTERNAL FLAGSET
      LOGICAL*4 FLAG
      WRITE(6,100)
  100 FORMAT(' CALLING FLAGSET')
      CALL FLAGSET(FLAG,.FALSE.)
      WRITE(6,200)FLAG
  200 FORMAT(' FLAG IS ',L2)
      WRITE(6,300)
  300 FORMAT(' DID IT WORK')
      STOP
      END