Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/g++.old-deja/g++.robertl/eh990323-5.C @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 // { dg-do run }
2 // check cleanup of partial array objects
3 extern "C" void abort (void);
4 extern "C" void exit (int);
5
6 int ctor = 0;
7 int dtor = 0;
8
9 int cnt = 1;
10
11 struct A {
12 int x;
13 A();
14 A(const A&);
15 ~A();
16 };
17
18 A::A()
19 {
20 if (cnt == 10)
21 throw 57;
22 x = cnt++;
23 ctor++;
24 }
25
26 A::A(const A&)
27 {
28 if (cnt == 10)
29 throw 57;
30 x = cnt++;
31 ctor++;
32 }
33
34 A::~A()
35 {
36 if (x + 1 != cnt--)
37 abort();
38 dtor++;
39 }
40
41 void f()
42 {
43 A a[] = {A(), A(), A(), A(), A(), A(), A(), A(), A(), A(), A(), A()};
44
45 throw -1066;
46 }
47
48 int
49 main()
50 {
51 int flag;
52
53 flag = 0;
54 try {
55 f();
56 }
57 catch (int) {
58 flag = 1;
59 }
60 if (!flag)
61 abort();
62 if (ctor != 9)
63 abort();
64 if (dtor != 9)
65 abort();
66
67 exit(0);
68 }