/*
 * Copyright (c) 1999 Landon Curt Noll
 * Permission is granted to use, distribute, or modify this source,
 * provided that this copyright notice remains intact.
 *
 * By:  Landon Curt Noll
 *      http://reality.sgi.com/chongo
 *
 *      chongo <was here> /\../\
 *
 * This library is used by the 8400 series of the regress.cal test suite.
 */

print "8401: in test8400.cal";

/*
 * test8400 - dummy function to allow a check of quit-based memory leaks
 */
define test8400()
{
    local x8401 = 19937;    /* watch for lost memory */
    static s8401 = 44497;   /* watch for lost memory */

    return x8401+s8401;
}
print "8402: parsed test8400()";
vrfy(test8400() == 64434,	    '8403: test8400() == 64434');

quit;
prob('quit did not end test8400.cal');