URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [objc.dg/] [encode-11.m] - Rev 384
Compare with Previous | Blame | View Log
/* { dg-do run } */ extern void abort (void); extern int strcmp (const char *, const char *); typedef struct Vec { double xv[10], yv[5]; float fscal; int z; } xyz_t ; typedef struct { float fscalar; double dscalar; xyz_t dv; int iscalar; long ln; long long lln; } anonymous; const char *enc = @encode(xyz_t); const char *enc2 = @encode(anonymous); #ifdef __LP64__ #define L "q" #else #define L "l" #endif int main(void) { const char *encode = @encode(long); if (strcmp (encode, L)) abort (); if (strcmp (enc, "{Vec=[10d][5d]fi}")) abort (); if (strcmp (enc2, "{?=fd{Vec=[10d][5d]fi}i" L "q}")) abort (); return 0; }