Subversion Repositories openrisc

/* { 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;

}