diff options
Diffstat (limited to 'gdb/testsuite/gdb.fortran/dot-ops.exp')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/dot-ops.exp | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.fortran/dot-ops.exp b/gdb/testsuite/gdb.fortran/dot-ops.exp index 8454f7e..cc9adf3 100644 --- a/gdb/testsuite/gdb.fortran/dot-ops.exp +++ b/gdb/testsuite/gdb.fortran/dot-ops.exp @@ -109,6 +109,36 @@ proc test_dot_operations {} { gdb_test "p 4 $gt 4" " = .FALSE." gdb_test "p 3 $gt 4" " = .FALSE." } + + # Now test the symbol based comparison operators. + + # Arithmetic EQ + gdb_test "p 5 == 4" " = .FALSE." + gdb_test "p 4 == 4" " = .TRUE." + + # Arithmetic NE + gdb_test "p 5 /= 4" " = .TRUE." + gdb_test "p 4 /= 4" " = .FALSE." + + # Arithmetic LE + gdb_test "p 5 <= 4" " = .FALSE." + gdb_test "p 4 <= 4" " = .TRUE." + gdb_test "p 3 <= 4" " = .TRUE." + + # Arithmetic LT + gdb_test "p 5 < 4" " = .FALSE." + gdb_test "p 4 < 4" " = .FALSE." + gdb_test "p 3 < 4" " = .TRUE." + + # Arithmetic GE + gdb_test "p 5 >= 4" " = .TRUE." + gdb_test "p 4 >= 4" " = .TRUE." + gdb_test "p 3 >= 4" " = .FALSE." + + # Arithmetic GT + gdb_test "p 5 > 4" " = .TRUE." + gdb_test "p 4 > 4" " = .FALSE." + gdb_test "p 3 > 4" " = .FALSE." } # Start of test script. |