sdcc/support/regression/tests/gcc-torture-execute-20001017-1.c

   1 /*
   2    20001017-1.c from the execute part of the gcc torture tests.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #pragma disable_warning 93
  10 #pragma disable_warning 85
  11 #endif
  12
  13 #if !defined(__SDCC_pic14) // Pseudo-stack size limit
  14 void bug (double *Cref, char transb, int m, int n, int k,
  15           double a, double *A, int fdA, double *B, int fdB,
  16           double b, double *C, int fdC)
  17 {
  18   if (C != Cref) ASSERT (0);
  19 }
  20 #endif
  21
  22 void
  23 testTortureExecute (void)
  24 {
  25   double A[1], B[1], C[1];
  26
  27 #if !defined(__SDCC_pic14) // Pseudo-stack size limit
  28   bug (C, 'B', 1, 2, 3, 4.0, A, 5, B, 6, 7.0, C, 8);
  29 #endif
  30
  31   return;
  32 }
  33