1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
/* { dg-do run } */
extern "C" {
extern void abort (void);
extern int strcmp (const char *, const char *);
}
template <class T>
struct Vec {
T x, y;
long z;
long long zz;
};
typedef struct {
float fscalar;
double dv[10];
int iscalar;
long z;
long long zz;
Vec<const signed char> cv;
} anonymous;
//Vec<double> dd;
const char *enc = @encode(Vec<float>);
const char *enc2 = @encode(Vec<double>);
const char *enc3 = @encode(anonymous);
#ifdef __LP64__
#define L "q"
#else
#define L "l"
#endif
/* Darwin (at least, as of XCode 3.2.3/Darwin10) does not encode the read-only
attribute on the type. Arguably, this is a bug, but we are compatible
with this when -fnext-runtime is selected. */
#ifdef __NEXT_RUNTIME__
#define E3 "{?=f[10d]i" L "q{Vec<const signed char>=cc" L "q}}"
#else
#define E3 "{?=f[10d]i" L "q{Vec<const signed char>=rcrc" L "q}}"
#endif
int main(void) {
const char *encode = @encode(long);
if (strcmp (encode, L))
abort ();
if (strcmp (enc, (const char *)"{Vec<float>=ff" L "q}"))
abort ();
if (strcmp (enc2, (const char *)"{Vec<double>=dd" L "q}"))
abort ();
if (strcmp (enc3, (const char *) E3))
abort ();
return 0;
}
|
