# This testcase is part of GDB, the GNU debugger.
-# Copyright 2010 Free Software Foundation, Inc.
+# Copyright 2010-2017 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
# Test GDB bug report 11530.
# This is a problem related unnamed unions.
-if $tracelevel then {
- strace $tracelevel
-}
-
-set prms_id 0
-set bug_id 0
-
-set testfile "gdb11530"
-set binfile ${testfile}${EXEEXT}
+standard_testfile
# Unnamed union is a GNU extension, thus we restrict the test
# to gcc compiler.
-if [get_compiler_info ${binfile}] {
- return -1;
+if [get_compiler_info] {
+ return -1
}
if { ![test_compiler_info gcc*] } {
- return 0;
+ return 0
}
-if { [prepare_for_testing $testfile.exp $testfile $testfile.c {debug}] } {
- return -1;
+if { [prepare_for_testing "failed to prepare" $testfile $testfile.c {debug}] } {
+ return -1
}