1# This testcase is part of GDB, the GNU debugger.
2
3# Copyright 2010, 2011 Free Software Foundation, Inc.
4
5# This program is free software; you can redistribute it and/or modify
6# it under the terms of the GNU General Public License as published by
7# the Free Software Foundation; either version 3 of the License, or
8# (at your option) any later version.
9#
10# This program is distributed in the hope that it will be useful,
11# but WITHOUT ANY WARRANTY; without even the implied warranty of
12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13# GNU General Public License for more details.
14#
15# You should have received a copy of the GNU General Public License
16# along with this program.  If not, see <http://www.gnu.org/licenses/>.
17
18# Test GDB bug report 11530.
19# This is a problem related unnamed unions.
20
21if $tracelevel then {
22	strace $tracelevel
23}
24
25set testfile "gdb11530"
26set binfile ${testfile}${EXEEXT}
27
28# Unnamed union is a GNU extension, thus we restrict the test
29# to gcc compiler.
30
31if [get_compiler_info ${binfile}] {
32    return -1;
33}
34
35if { ![test_compiler_info gcc*] } {
36    return 0;
37}
38
39if { [prepare_for_testing $testfile.exp $testfile $testfile.c {debug}] } {
40    return -1;
41}
42
43
44if { ![runto main] } then {
45    fail "run to main"
46    return
47}
48
49gdb_test "print a.i" " = 0"
50gdb_test "print sizeof (a.i)" " = \[0-9\]+"
51gdb_test "print sizeof (a.i) == sizeof (int)" " = 1"
52
53