1  /* Check for Darwin m64 that we do not try to pass & return by value for a
       2     struct exceeding the number of arg FPRs (the struct here straddles the 
       3     split-point).  */
       4  /* { dg-do run { target { powerpc*-*-darwin* && lp64 } } } */
       5  
       6  extern void abort (void);
       7  
       8  /*#define DEBUG*/
       9  
      10  #ifdef DEBUG
      11  extern int printf (const char *, ...);
      12  extern int printf$LDBL128 (const char *, ...);
      13  #endif
      14  
      15  typedef struct fourteen {
      16    long double a, b, c, d, e, f, g;
      17  } fourteen_t ;
      18  
      19  fourteen_t foo (fourteen_t, fourteen_t) __attribute__ ((noinline));
      20  
      21  fourteen_t 
      22  foo (fourteen_t aa, fourteen_t bb) 
      23  {
      24    fourteen_t r;
      25  
      26    r.a = aa.a + bb.a;
      27    r.b = aa.b + bb.b;
      28    r.c = aa.c + bb.c;
      29    r.d = aa.d + bb.d;
      30    r.e = aa.e + bb.e;
      31    r.f = aa.f + bb.f;
      32    r.g = aa.g + bb.g;
      33  
      34  #ifdef DEBUG
      35  #ifdef __ppc64__
      36    printf
      37  #else
      38    printf$LDBL128
      39  #endif	  
      40  	("%Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg: "
      41  	"%Lg %Lg %Lg %Lg %Lg %Lg %Lg\n",
      42  	aa.a, aa.b, aa.c, aa.d, aa.e, aa.f, aa.g,
      43  	bb.a, bb.b, bb.c, bb.d, bb.e, bb.f, bb.g,
      44  	r.a, r.b, r.c, r.d, r.e, r.f, r.g);
      45   printf ("aa.g %ll16x %ll16x\nbb.g %ll16x %ll16x\n",
      46  		*(unsigned long long*)&aa.g,
      47  		*(unsigned long long*)(((char *)&aa.g)+8),
      48  		*(unsigned long long*)&bb.g,
      49  		*(unsigned long long*)(((char *)&bb.g)+8));
      50   
      51  #endif
      52  
      53    __asm__ (""); /* double make sure we don't get inlined */
      54    return r;
      55  }
      56  
      57  int
      58  main (void)
      59  {
      60    fourteen_t x = { 1.L, 2.L,  3.L,  4.L,  5.L,  6.L,-12.3456789123456789L };
      61    fourteen_t y = { 8.L, 9.L, 10.L, 11.L, 12.L, 13.L, 12.3456789123456789L };
      62    fourteen_t z ;
      63    long double zz;
      64    
      65    z = foo (x,y);
      66    zz = x.g + y.g;
      67  #ifdef DEBUG
      68  #ifdef __ppc64__
      69  	printf
      70  #else
      71  	printf$LDBL128
      72  #endif	  
      73  		("  z: %Lg %Lg %Lg %Lg %Lg %Lg %Lg\n"
      74  		 "ret: %ll16x %ll16x\nzz : %ll16x %ll16x\n",
      75  		z.a, z.b, z.c, z.d, z.e, z.f, z.g,
      76  		*(unsigned long long*)&z.g,
      77  		*(unsigned long long*)(((char *)&z.g)+8),
      78  		*(unsigned long long*)&zz,
      79  		*(unsigned long long*)(((char *)&zz)+8));
      80  #endif
      81  
      82    /* Yes, we really do want to do an equality test here.  */
      83    if (z.g != zz)
      84      abort ();
      85  
      86    return 0;
      87  }