/*      $OpenBSD: exp.c,v 1.3 2017/08/06 20:31:58 robert Exp $  */

/*      Written by Otto Moerbeek, 2006,  Public domain. */

#include <math.h>
#include <err.h>

int
main(void)
{
        double rd, bigd = HUGE_VAL;
        float rf, bigf = HUGE_VALF;
        long double rl, bigl = HUGE_VALL;

        rd = exp(bigd);
        if (!isinf(rd))
                errx(1, "exp(bigd) = %f", rd);
        rd = exp(-bigd);
        if (rd != 0.0)
                errx(1, "exp(-bigd) = %f", rd);

        rf = expf(bigf);
        if (!isinf(rf))
                errx(1, "exp(bigf) = %f", rf);
        rf = expf(-bigf);
        if (rf != 0.0F)
                errx(1, "exp(-bigf) = %f", rf);

        rl = expl(bigl);
        if (!isinf(rl))
                errx(1, "exp(bigl) = %Lf", rl);
        rl = expl(-bigl);
        if (rl != 0.0L)
                errx(1, "exp(-bigl) = %Lf", rl);

        return (0);
}