#include "ucbftest.h"

	subroutine ucbstart
	print *," ucbtest START "
	return
	end

	subroutine ucbpass
	print *," ucbtest UCBPASS "
	call ucbexit UNDERSCORE (0)
	end

	subroutine ucbfail
	print *," ucbtest UCBFAIL "
#ifdef NO_FAIL
	call ucbexit UNDERSCORE (0)
#else
	call ucbexit UNDERSCORE (42)
#endif
	return
	end
