[binutils.git] / gdb / testsuite / gdb.ada / null_record.exp

if $tracelevel then {
    strace $tracelevel
}

load_lib "ada.exp"

set testfile "null_record"
set srcfile ${testfile}.adb
set binfile ${objdir}/${subdir}/${testfile}

if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
  return -1
}

gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}

gdb_test "begin" \
         "Breakpoint \[0-9\]+ at .*null_record.adb.*" \
         "begin"

gdb_test "ptype empty" \
         "type = record null; end record" \
         "ptype on null record"
Commit	Line	Data
f0aaee49 JB	1	if $tracelevel then {
	2	strace $tracelevel
	3	}
	4
	5	load_lib "ada.exp"
	6
	7	set testfile "null_record"
	8	set srcfile ${testfile}.adb
	9	set binfile ${objdir}/${subdir}/${testfile}
	10
	11	if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
	12	return -1
	13	}
	14
	15	gdb_exit
	16	gdb_start
	17	gdb_reinitialize_dir $srcdir/$subdir
	18	gdb_load ${binfile}
	19
	20	gdb_test "begin" \
	21	"Breakpoint \[0-9\]+ at .null_record.adb." \
	22	"begin"
	23
	24	gdb_test "ptype empty" \
	25	"type = record null; end record" \
	26	"ptype on null record"