PROGRAM TEST IMPLICIT NONE CHARACTER*80 PARAMETER INTEGER*2 LEN_PARAM INTEGER*4 CLI$PRESENT, CLI$GET_VALUE, STATUS EXTERNAL CLI$_PRESENT EXTERNAL CLI$_NEGATED STATUS = CLI$PRESENT( 'P1' ) IF ( STATUS .EQ. %LOC(CLI$_PRESENT) ) THEN STATUS = CLI$GET_VALUE( 'P1',PARAMETER,LEN_PARAM ) ELSE CALL LIB$GET_INPUT( PARAMETER,' Enter parameter: ',LEN_PARAM ) END IF STATUS = CLI$PRESENT( 'FULL' ) IF ( STATUS .EQ. %LOC(CLI$_PRESENT) ) THEN WRITE( 6,* ) ' FULL qualifier is present' END IF STATUS = CLI$PRESENT( 'DATE' ) IF ( STATUS .EQ. %LOC(CLI$_PRESENT) ) THEN WRITE( 6,* ) ' DATE qualifier is present' ELSE IF( STATUS .EQ. %LOC(CLI$_NEGATED) ) THEN WRITE( 6,* ) ' DATE qualifier is negated' ELSE WRITE( 6,* ) ' DATE qualifier is NOT present' END IF END