gcc/testsuite/gcc.dg/vect/vect-early-break_98-pr113237.c

   1 /* { dg-do compile } */
   2 /* { dg-add-options vect_early_break } */
   3 /* { dg-require-effective-target vect_early_break } */
   4 /* { dg-require-effective-target vect_int } */
   5
   6 long Perl_pp_split_limit;
   7 int Perl_block_gimme();
   8 int Perl_pp_split() {
   9   char strend;
  10   long iters;
  11   int gimme = Perl_block_gimme();
  12   while (--Perl_pp_split_limit) {
  13     if (gimme)
  14       iters++;
  15     if (strend)
  16       break;
  17   }
  18   if (iters)
  19     return 0;
  20 }