summaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp')
-rw-r--r--gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp117
1 files changed, 0 insertions, 117 deletions
diff --git a/gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp b/gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp
deleted file mode 100644
index d1500f01bd0..00000000000
--- a/gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp
+++ /dev/null
@@ -1,117 +0,0 @@
-# This file was written by Sue Kimura. (sue_kimura@hp.com)
-#
-# Test for CLLbs14602 -- problem with recognizing long double on 10.20.
-#
-# Source file: bs14602.c
-
-if $tracelevel {
- strace $tracelevel
-}
-
-if { [skip_hp_tests] } { continue }
-
-#
-# test running programs
-#
-set prms_id 0
-set bug_id 0
-
-
-set testfile bs14602
-set srcfile ${testfile}.c
-set binfile ${objdir}/${subdir}/${testfile}
-
-# Create and source the file that provides information about the compiler
-# used to compile the test case.
-if [get_compiler_info ${binfile}] {
- return -1;
-}
-
-# set up appropriate compile option to recognize long double
-if {$hp_aCC_compiler || $hp_cc_compiler} {
- set ansi_option "-Ae"
-} else {
- set ansi_option ""
-}
-
-if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "$binfile" executable "debug {additional_flags=${ansi_option}}"] != "" } {
- perror "Couldn't compile ${srcfile}"
- return -1
-}
-
-
-# Start with a fresh gdb.
-
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-gdb_load $binfile
-
-
-# get to end of main so we can check out some stuff
-if ![runto main] {
- perror "couldn't run to breakpoint main"
- continue
-}
-
-gdb_test "txbreak" \
- "Breakpoint $decimal at $hex: file .*bs14602.c, line 9." \
- "set breakpoint at end of main"
-
-gdb_test "continue" \
- "Continuing.\r\n$hex in main* \\(\\) at .*bs14602.c:9\r\n.*" \
- "continue to end of main"
-
-# test some simple things about long double
-gdb_test "whatis v_long_double" \
- "type = long double" \
- "whatis v_long_double"
-
-gdb_test "ptype v_long_double" \
- "type = long double" \
- "ptype v_long_double"
-
-gdb_test "print sizeof \(long double\)" \
- " = 16" \
- "print sizeof long double"
-
-gdb_test "print sizeof \(v_long_double\)" \
- " = 16" \
- "print sizeof v_long_double"
-
-gdb_test "print v_long_double" \
- " = 12345.67890000000079453457146883011" \
- "print v_long_double - 1"
-
-gdb_test "set variable v_long_double = 98765.43210" \
- "" \
- "set variable v_long_double to constant value"
-
-gdb_test "print v_long_double" \
- " = 98765.43210000000544823706150054932" \
- "print v_long_double - 2"
-
-gdb_test "set variable v_double = v_long_double" \
- "" \
- " set variable v_double with v_long_double"
-
-gdb_test "print v_double" \
- " = 98765.432100000005" \
- " print v_double"
-
-#reset v_long_double
-gdb_test "set variable v_long_double = 0" \
- "" \
- "reset v_long_double to 0"
-
-gdb_test "print v_long_double" \
- " = 0" \
- "print v_long_double - 3"
-
-gdb_test "set variable v_long_double = v_double" \
- "" \
- " set variable v_long_double with v_long_double"
-
-gdb_test "print v_long_double" \
- " = 98765.43210000000544823706150054932" \
- "print v_long_double - 4 "