mirror of
https://github.com/ivabus/pantry
synced 2024-11-10 18:45:19 +03:00
13 lines
283 B
C
13 lines
283 B
C
|
#include <cerf.h>
|
||
|
|
#include <complex.h>
|
||
|
|
#include <math.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
|
||
|
|
int main (void) {
|
||
|
|
double _Complex a = 1.0 - 0.4I;
|
||
|
|
a = cerf(a);
|
||
|
|
if (fabs(creal(a)-0.910867) > 1.e-6) abort();
|
||
|
|
if (fabs(cimag(a)+0.156454) > 1.e-6) abort();
|
||
|
|
return 0;
|
||
|
|
}
|