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