gcc/testsuite/gcc.dg/pr24600.c

/* This used to ICE on s390 due to a old-loop bug.  */

/* { dg-do compile } */
/* { dg-options "-O2" } */

char *strcpy (char *dest, const char *src);

void test (char *Line, int len)
{
  int z;

  for (z = 1; z <= len; z++)
    if (Line[z - 1])
      strcpy (Line + z + 1, Line);
}