sdcc/support/regression/tests/gcc-torture-execute-pr80153.c

   1 /*
   2    pr80153.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 85
  10 #endif
  11
  12 #include <string.h>
  13
  14 /* PR tree-optimization/80153 */
  15
  16 void check (int, int, int);
  17 void check (int c, int c2, int val)
  18 {
  19   (void)c;
  20   (void)c2;
  21   ASSERT (val);
  22 }
  23
  24 static const char *buf;
  25 static int l, i;
  26
  27 void _fputs(const char *str);
  28 void _fputs(const char *str)
  29 {
  30   buf = str;
  31   i = 0;
  32   l = strlen(buf);
  33 }
  34
  35 char _fgetc();
  36 char _fgetc()
  37 {
  38   char val = buf[i];
  39   i++;
  40   if (i > l)
  41     return -1;
  42   else
  43     return val;
  44 }
  45
  46 static const char *string = "oops!\n";
  47
  48 void
  49 testTortureExecute (void)
  50 {
  51   int i;
  52   int c;
  53
  54   _fputs(string);
  55
  56   for (i = 0; i < strlen(string); i++) {
  57     c = _fgetc();
  58     check(c, string[i], c == string[i]);
  59   }
  60
  61   return;
  62 }