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  
       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