OpenCores
URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.base/] [complex.c] - Blame information for rev 25

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 25 jlechner
/* Copyright 2002, 2003, 2004, 2007, 2008 Free Software Foundation, Inc.
2
 
3
   This file is part of GDB.
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 taken from GCC.  Verify that we can print a structure containing
19
   a complex number.  */
20
 
21
#include <stdlib.h>
22
 
23
typedef __complex__ float cf;
24
struct x { char c; cf f; } __attribute__ ((__packed__));
25
struct unpacked_x { char c; cf f; };
26
extern void f4 (struct unpacked_x*);
27
extern void f3 (void);
28
extern void f2 (struct x*);
29
extern void f1 (void);
30
int
31
main (void)
32
{
33
  f1 ();
34
  f3 ();
35
  exit (0);
36
}
37
 
38
void
39
f1 (void)
40
{
41
  struct x s;
42
  s.f = 1;
43
  s.c = 42;
44
  f2 (&s);
45
}
46
 
47
void
48
f2 (struct x *y)
49
{
50
  if (y->f != 1 || y->c != 42)
51
    abort ();
52
}
53
 
54
void
55
f3 (void)
56
{
57
  struct unpacked_x s;
58
  s.f = 1;
59
  s.c = 42;
60
  f4 (&s);
61
}
62
 
63
void
64
f4 (struct unpacked_x *y)
65
{
66
  if (y->f != 1 || y->c != 42)
67
    abort ();
68
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.