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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [objc.dg/] [encode-11.m] - Rev 704

Compare with Previous | Blame | View Log

/* { dg-do run } */
 
extern void _exit(int);
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))
    _exit(-(__LINE__));
 
  if (strcmp (enc, "{Vec=[10d][5d]fi}"))
    _exit(-(__LINE__));
 
  if (strcmp (enc2, "{?=fd{Vec=[10d][5d]fi}i" L "q}"))
    _exit(-(__LINE__));
 
  return 0;
}
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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