diff options
| author | Jerome Guitton <guitton@adacore.com> | 2009-03-19 14:08:50 +0000 |
|---|---|---|
| committer | Jerome Guitton <guitton@adacore.com> | 2009-03-19 14:08:50 +0000 |
| commit | c31af87b2e65cd40a9fb26ae08306a8ff559302a (patch) | |
| tree | ce7b7593816292387221823e1f3afcb7af4633d9 /gdb/testsuite/gdb.ada/fixed_points.exp | |
| parent | 156621f3447ad88981645265931ab2e75aebce9f (diff) | |
| download | gdb-c31af87b2e65cd40a9fb26ae08306a8ff559302a.zip gdb-c31af87b2e65cd40a9fb26ae08306a8ff559302a.tar.gz gdb-c31af87b2e65cd40a9fb26ae08306a8ff559302a.tar.bz2 | |
* gdb.ada/fixed_points/fixed_points.adb: Add a test on overprecise
deltas.
* gdb.ada/fixed_points.exp: Ditto.
Diffstat (limited to 'gdb/testsuite/gdb.ada/fixed_points.exp')
| -rw-r--r-- | gdb/testsuite/gdb.ada/fixed_points.exp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/fixed_points.exp b/gdb/testsuite/gdb.ada/fixed_points.exp index b399244..abc94c8 100644 --- a/gdb/testsuite/gdb.ada/fixed_points.exp +++ b/gdb/testsuite/gdb.ada/fixed_points.exp @@ -37,6 +37,8 @@ gdb_load ${binfile} set bp_location [gdb_get_line_number "Set breakpoint here" ${testdir}/fixed_points.adb] runto "fixed_points.adb:$bp_location" +# Fixed point subtypes: + gdb_test "print base_object" \ "= -50" \ "p on a fixed point type" @@ -48,3 +50,11 @@ gdb_test "print subtype_object" \ gdb_test "print new_type_object" \ "= -50" \ "p on a new fixed point type" + +# Overprecise delta: + +gdb_test "print Overprecise_Object" \ + "= 0.13579135791" + +gdb_test "ptype Overprecise_Object" \ + "= delta 0.135791" |