1 /* This used to ICE on s390 due to a old-loop bug.  */
2 
3 /* { dg-do compile } */
4 /* { dg-options "-O2" } */
5 
6 char *strcpy (char *dest, const char *src);
7 
test(char * Line,int len)8 void test (char *Line, int len)
9 {
10   int z;
11 
12   for (z = 1; z <= len; z++)
13     if (Line[z - 1])
14       strcpy (Line + z + 1, Line);
15 }
16 
17