gcc/testsuite/gcc.target/nvptx/abi-complex-ret.c

   1 /* { dg-do compile } */
   2 /* { dg-additional-options "-Wno-pedantic -Wno-long-long -m64" } */
   3
   4 /* Complex return.  Returned via pointer.  */
   5
   6 /* { dg-final { scan-assembler-times ".extern .func dcl_rcc \\(.param.u64 %\[_a-z0-9\]*\\);" 1 } } */
   7 _Complex char dcl_rcc (void);
   8
   9 /* { dg-final { scan-assembler-times ".extern .func dcl_rcs \\(.param.u64 %\[_a-z0-9\]*\\);" 1 } } */
  10 _Complex short dcl_rcs (void);
  11
  12 /* { dg-final { scan-assembler-times ".extern .func dcl_rci \\(.param.u64 %\[_a-z0-9\]*\\);" 1 } } */
  13 _Complex int dcl_rci (void);
  14
  15 /* { dg-final { scan-assembler-times ".extern .func dcl_rcll \\(.param.u64 %\[_a-z0-9\]*\\);" 1 } } */
  16 _Complex long long dcl_rcll (void);
  17
  18 /* { dg-final { scan-assembler-times ".extern .func dcl_rcf \\(.param.u64 %\[_a-z0-9\]*\\);" 1 } } */
  19 _Complex float dcl_rcf (void);
  20
  21 /* { dg-final { scan-assembler-times ".extern .func dcl_rcd \\(.param.u64 %\[_a-z0-9\]*\\);" 1 } } */
  22 _Complex double dcl_rcd (void);
  23
  24 void test_1 (void)
  25 {
  26   dcl_rcc ();
  27   dcl_rcs ();
  28   dcl_rci ();
  29   dcl_rcll ();
  30   dcl_rcf ();
  31   dcl_rcd ();
  32 }
  33
  34 #define M(T,r,i) ({_Complex T x; __real__ (x) = (r), __imag__(x) == (i); x; })
  35
  36 /* { dg-final { scan-assembler-times ".visible .func dfn_rcc \\(.param.u64 %\[_a-z0-9\]*\\)(?:;|\[\r\n\]+\{)" 2 } } */
  37 _Complex char dfn_rcc (void)
  38 {
  39   return M (char,1,2);
  40 }
  41
  42 /* { dg-final { scan-assembler-times ".visible .func dfn_rcs \\(.param.u64 %\[_a-z0-9\]*\\)(?:;|\[\r\n\]+\{)" 2 } } */
  43 _Complex short dfn_rcs (void)
  44 {
  45   return M (short,3,4);
  46 }
  47
  48 /* { dg-final { scan-assembler-times ".visible .func dfn_rci \\(.param.u64 %\[_a-z0-9\]*\\)(?:;|\[\r\n\]+\{)" 2 } } */
  49 _Complex int dfn_rci (void)
  50 {
  51   return M (int,5,6);
  52 }
  53
  54 /* { dg-final { scan-assembler-times ".visible .func dfn_rcll \\(.param.u64 %\[_a-z0-9\]*\\)(?:;|\[\r\n\]+\{)" 2 } } */
  55 _Complex long long dfn_rcll (void)
  56 {
  57   return M (long long,7,8);
  58 }
  59
  60 /* { dg-final { scan-assembler-times ".visible .func dfn_rcf \\(.param.u64 %\[_a-z0-9\]*\\)(?:;|\[\r\n\]+\{)" 2 } } */
  61 _Complex float dfn_rcf (void)
  62 {
  63   return M (float,9,10);
  64 }
  65
  66 /* { dg-final { scan-assembler-times ".visible .func dfn_rcd \\(.param.u64 %\[_a-z0-9\]*\\)(?:;|\[\r\n\]+\{)" 2 } } */
  67 _Complex double dfn_rcd (void)
  68 {
  69   return M (double,11,12);
  70 }