diff options
Diffstat (limited to 'Test/floats/float5.bpl')
-rw-r--r-- | Test/floats/float5.bpl | 45 |
1 files changed, 22 insertions, 23 deletions
diff --git a/Test/floats/float5.bpl b/Test/floats/float5.bpl index fd630394..12b19cf5 100644 --- a/Test/floats/float5.bpl +++ b/Test/floats/float5.bpl @@ -1,24 +1,23 @@ -// RUN: %boogie -proverWarnings:1 "%s" > "%t"
-// RUN: %diff "%s.expect" "%t"
-
-function {:builtin "(_ to_fp 8 23) RNE"} TO_FLOAT823_INT(int) returns (float<8, 23>);
-function {:builtin "(_ to_fp 8 23) RNE"} TO_FLOAT823_REAL(real) returns (float<8, 23>);
-function {:builtin "(_ to_fp 8 23) RNE"} TO_FLOAT823_BV31(bv31) returns (float<8, 23>);
-function {:builtin "(_ to_fp 8 23) RNE"} TO_FLOAT823_BV32(bv32) returns (float<8, 23>);
-function {:builtin "(_ to_fp 8 23) RNE"} TO_FLOAT823_FLOAT824(float<8, 24>) returns (float<8, 23>);
-function {:builtin "(_ to_fp 8 24) RNE"} TO_FLOAT824_FLOAT823(float<8, 23>) returns (float<8, 24>);
-
-procedure foo(x : float<8, 24>) returns (r : float<8, 24>) {
- r := TO_FLOAT823_INT(5); // Error
- r := TO_FLOAT823_REAL(5.0); // Error
- r := TO_FLOAT823_BV31(0bv31); // Error
- r := TO_FLOAT823_BV32(0bv32); // Error
- r := TO_FLOAT823_FLOAT824(fp<8, 24>(1bv32)); // Error
- r := TO_FLOAT824_FLOAT823(fp<8, 24>(1bv32)); // Error
- r := TO_FLOAT824_FLOAT823(fp<8, 23>(1bv31));
-
- r := TO_FLOAT823_FLOAT824(x); // Error
- r := TO_FLOAT824_FLOAT823(x); // Error
-
- return;
+// RUN: %boogie -proverWarnings:1 "%s" > "%t" +// RUN: %diff "%s.expect" "%t" + +function {:builtin "(_ to_fp 8 23) RNE"} TO_FLOAT823_INT(int) returns (float23e8); +function {:builtin "(_ to_fp 8 23) RNE"} TO_FLOAT823_REAL(real) returns (float23e8); +function {:builtin "(_ to_fp 8 23) RNE"} TO_FLOAT823_BV31(bv31) returns (float23e8); +function {:builtin "(_ to_fp 8 23) RNE"} TO_FLOAT823_BV32(bv32) returns (float23e8); +function {:builtin "(_ to_fp 8 23) RNE"} TO_FLOAT823_FLOAT824(float24e8) returns (float24e8); +function {:builtin "(_ to_fp 8 24) RNE"} TO_FLOAT824_FLOAT823(float23e8) returns (float24e8); + +procedure foo(x : float24e8) returns (r : float24e8) { + r := TO_FLOAT823_INT(5); // Error + r := TO_FLOAT823_REAL(5.0); // Error + r := TO_FLOAT823_BV31(0bv31); // Error + r := TO_FLOAT823_BV32(0bv32); // Error + r := TO_FLOAT823_FLOAT824(0e0f24e8); // Error + r := TO_FLOAT824_FLOAT823(0e0f23e8); // Error + + r := TO_FLOAT823_FLOAT824(x); // Error + r := TO_FLOAT824_FLOAT823(x); // Error + + return; }
\ No newline at end of file |