Blame test/mpfrrndeval.awk
|
Packit Service |
f629e6 |
# Tests side effects (like caching) on the evaluation (formatting and
|
|
Packit Service |
f629e6 |
# rounding) of MPFR variables vs literals.
|
|
Packit Service |
f629e6 |
BEGIN {
|
|
Packit Service |
f629e6 |
pi = 3.1416
|
|
Packit Service |
f629e6 |
e = 2.7183
|
|
Packit Service |
f629e6 |
golden = 1.6180
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
# Evaluated as number with (default) OFMT.
|
|
Packit Service |
f629e6 |
print pi
|
|
Packit Service |
f629e6 |
print e
|
|
Packit Service |
f629e6 |
print golden
|
|
Packit Service |
f629e6 |
printf "\n"
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
# Evaluated as number with (custom) OFMT.
|
|
Packit Service |
f629e6 |
OFMT = "%.f"
|
|
Packit Service |
f629e6 |
ROUNDMODE = "U"; print "Variable pi U:", pi
|
|
Packit Service |
f629e6 |
ROUNDMODE = "D"; print "Variable pi D:", pi
|
|
Packit Service |
f629e6 |
ROUNDMODE = "U"; print "Literal pi U:", 3.1416
|
|
Packit Service |
f629e6 |
ROUNDMODE = "D"; print "Literal pi D:", 3.1416
|
|
Packit Service |
f629e6 |
printf "\n"
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
# Evaluated as string with (custom) CONVFMT. Absent comma.
|
|
Packit Service |
f629e6 |
CONVFMT = "%.f"
|
|
Packit Service |
f629e6 |
ROUNDMODE = "D"; print "Variable e D: " e
|
|
Packit Service |
f629e6 |
ROUNDMODE = "U"; print "Variable e U: " e
|
|
Packit Service |
f629e6 |
ROUNDMODE = "D"; print "Literal e D: " 2.7183
|
|
Packit Service |
f629e6 |
ROUNDMODE = "U"; print "Literal e U: " 2.7183
|
|
Packit Service |
f629e6 |
printf "\n"
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
# Evaluated as number with (hardcoded) printf conversion.
|
|
Packit Service |
f629e6 |
ROUNDMODE = "N"; printf "Variable golden N: %.f\n", golden
|
|
Packit Service |
f629e6 |
ROUNDMODE = "Z"; printf "Variable golden Z: %.f\n", golden
|
|
Packit Service |
f629e6 |
ROUNDMODE = "N"; printf "Literal golden N: %.f\n", 1.6180
|
|
Packit Service |
f629e6 |
ROUNDMODE = "Z"; printf "Literal golden Z: %.f\n", 1.6180
|
|
Packit Service |
f629e6 |
}
|