gcc/testsuite/gcc.dg/pr27095.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-O2" } */
   3
   4 /* On MIPS, disable generating hints (R_MIPS_JALR) for PIC calls.  In addition
   5    to the load from the GOT this also contains the name of the funtion so for
   6    each call the function name would appear twice.  */
   7 /* { dg-options "-O2 -mno-relax-pic-calls" { target mips*-*-* } } */
   8
   9 extern void *memset (void *, int, __SIZE_TYPE__);
  10 extern __SIZE_TYPE__ strlen (const char *);
  11
  12 int
  13 main (int argc, char **argv)
  14 {
  15   char x[8] = "abc";
  16   memset (x, argc, strlen (x));
  17   return 0;
  18 }
  19 /* { dg-final { scan-assembler-not "(?n)strlen\(.*\n\)+.*strlen" { target { ! { powerpc*-*-darwin* hppa*-*-hpux* ia64-*-hpux* alpha*-*-* spu-*-* } } } } } */
  20 /* hppa*-*-hpux* has an IMPORT statement for strlen (plus the branch). */
  21 /* *-*-darwin* has something similar. */
  22 /* { dg-final { scan-assembler-not "(?n)strlen\(.*\n\)+.*strlen\(.*\n\)+.*strlen" { target hppa*-*-hpux* } } } */
  23 /* { dg-final { scan-assembler-not "(?n)bl L_strlen\(.*\n\)+.*bl L_strlen" { target powerpc*-*-darwin* } } } */
  24 /* ia64-*-hpux* has a global statement, a type statement, and the branch. */
  25 /* { dg-final { scan-assembler-not "(?n)strlen\(.*\n\)+.*strlen\(.*\n\)+.*strlen\(.*\n\)+.*strlen" { target ia64-*-hpux* } } } */
  26 /* alpha-*-* has a GOT load and the call.  */
  27 /* { dg-final { scan-assembler-not "(?n)jsr .*,strlen\(.*\n\)+.*jsr .*,strlen" { target alpha*-*-* } } } */
  28 /* spu-*-* has a branch hint and the call.  */
  29 /* { dg-final { scan-assembler-not "(?n)brsl.*,strlen\(.*\n\)+.*brsl.*,strlen" { target spu-*-* } } } */