Subversion Repositories scarts

/* 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);
}