|
Packit Service |
f629e6 |
function display(x,str, i,res) {
|
|
Packit Service |
f629e6 |
for (i = 0; i < n; i++) {
|
|
Packit Service |
f629e6 |
if ((res = sprintf(formats[i],x)) != str)
|
|
Packit Service |
f629e6 |
printf "sprintf(%s,%s) = %s (!= %s)\n",
|
|
Packit Service |
f629e6 |
formats[i],x,res,str
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
BEGIN {
|
|
Packit Service |
f629e6 |
nan = sqrt(-1)
|
|
Packit Service |
f629e6 |
nan_str = sprintf("%f",nan)
|
|
Packit Service |
f629e6 |
nnan_str = sprintf("%f",-nan)
|
|
Packit Service |
f629e6 |
inf = -log(0)
|
|
Packit Service |
f629e6 |
inf_str = sprintf("%f",inf)
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
n = 0
|
|
Packit Service |
f629e6 |
formats[n++] = "%f"
|
|
Packit Service |
f629e6 |
formats[n++] = "%s"
|
|
Packit Service |
f629e6 |
formats[n++] = "%g"
|
|
Packit Service |
f629e6 |
formats[n++] = "%x"
|
|
Packit Service |
f629e6 |
formats[n++] = "%d"
|
|
Packit Service |
f629e6 |
display(nan,nan_str)
|
|
Packit Service |
f629e6 |
display(-nan,nnan_str)
|
|
Packit Service |
f629e6 |
display(inf,inf)
|
|
Packit Service |
f629e6 |
display(-inf,"-"inf_str)
|
|
Packit Service |
f629e6 |
}
|