// RUN: %boogie -proverWarnings:1 "%s" > "%t"
// RUN: %diff "%s.expect" "%t"

function {:builtin "(_ to_fp 8 24) RNE"} TO_FLOAT32_INT(int) returns (float24e8);
function {:builtin "(_ to_fp 8 24) RNE"} TO_FLOAT32_REAL(real) returns (float24e8);
function {:builtin "(_ to_fp 8 24) RNE"} TO_FLOAT32_BV32(bv32) returns (float24e8);
function {:builtin "(_ to_fp 11 53) RNE"} TO_FLOAT64_BV64(bv64) returns (float53e11);
function {:builtin "(_ to_fp 8 24) RNE"} TO_FLOAT32_FLOAT64(float53e11) returns (float24e8);
function {:builtin "(_ to_fp 11 53) RNE"} TO_FLOAT64_FLOAT32(float24e8) returns (float53e11);

procedure main() returns () {
	var i : int;
	var r : real;
	var f32 : float24e8;
	var f64 : float53e11;
	
	f32 := TO_FLOAT32_INT(5);
	f32 := TO_FLOAT32_REAL(5.0);
	
	f32 := TO_FLOAT32_BV32(0bv32);
	f64 := TO_FLOAT64_BV64(0bv64);
	
	f32 := TO_FLOAT32_FLOAT64(0e0f53e11);
	f64 := TO_FLOAT64_FLOAT32(0e0f24e8);
	
	f32 := TO_FLOAT32_FLOAT64(f64);
	f64 := TO_FLOAT64_FLOAT32(f32);
	
	return;
}