diff options
| author | Wu Zhou <woodzltc@cn.ibm.com> | 2005-07-06 06:11:54 +0000 |
|---|---|---|
| committer | Wu Zhou <woodzltc@cn.ibm.com> | 2005-07-06 06:11:54 +0000 |
| commit | 480f62fa7bbf7146d1c11d4459206ef96de032b7 (patch) | |
| tree | b47787cc89296c1082f9bfa9f31ad5606a7e4335 /gdb/testsuite/gdb.fortran | |
| parent | 9f3533584de4ee8a66bb54881f20a04b58645b0f (diff) | |
| download | gdb-480f62fa7bbf7146d1c11d4459206ef96de032b7.tar.gz | |
* gdb.fortran/exprs.exp (test_arithmetic_expressions): Add five
tests to evaluate exponentiation expression.
Diffstat (limited to 'gdb/testsuite/gdb.fortran')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/exprs.exp | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.fortran/exprs.exp b/gdb/testsuite/gdb.fortran/exprs.exp index 32742b997ec..c9703999ce4 100644 --- a/gdb/testsuite/gdb.fortran/exprs.exp +++ b/gdb/testsuite/gdb.fortran/exprs.exp @@ -1,4 +1,4 @@ -# Copyright (C) 1994, 1997 Free Software Foundation, Inc. +# Copyright (C) 1994, 1997, 2005 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -250,6 +250,14 @@ proc test_arithmetic_expressions {} { # Test modulo with various operands + # Test exponentiation with various operands + + gdb_test "p 2 ** 3" " = 8" "int powered by int" + gdb_test "p 2 ** 2 ** 3" " = 256" "combined exponentiation expression" + gdb_test "p (2 ** 2) ** 3" " = 64" "combined exponentiation expression in specified order" + gdb_test "p 4 ** 0.5" " = 2" "int powered by real" + gdb_test "p 4.0 ** 0.5" " = 2" "real powered by real" + } # Start with a fresh gdb. |