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
}