1 # Copyright
2005-2024 Free Software Foundation
, Inc.
3 # This
program is free software
; you can redistribute it and
/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation
; either version
3 of the License
, or
6 #
(at your option
) any later version.
8 # This
program is distributed in the hope that it will be useful
,
9 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License
for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this
program.
If not
, see
<http
://www.gnu.org
/licenses
/>.
18 require allow_ada_tests
20 standard_ada_testfile p
22 if {[gdb_compile_ada
"${srcfile}" "${binfile}" executable [list debug ]] != "" } {
26 clean_restart $
{testfile
}
28 set bp_location
[gdb_get_line_number
"START" ${testdir}/p.adb]
29 runto
"p.adb:$bp_location"
31 set kfail_int128support_re \
32 "That operation is not available on integers of more than 8 bytes\\."
34 gdb_test_multiple
"print X ** Y = Z" "Long_Long_Integer ** Y" {
38 -re
-wrap $kfail_int128support_re
{
39 kfail gdb
/20991 $gdb_test_name
43 set cmd
"print long_float'min (long_float (X), 8.0)"
44 gdb_test_multiple $cmd
"long_float'min" {
48 -re
-wrap $kfail_int128support_re
{
49 kfail gdb
/20991 $gdb_test_name
53 set cmd
"print long_float'max (long_float (X), 8.0)"
54 gdb_test_multiple $cmd
"long_float'max" {
58 -re
-wrap $kfail_int128support_re
{
59 kfail gdb
/20991 $gdb_test_name