gcc/testsuite/gcc.dg/torture/pr81900.c

   1 /* PR/81900 */
   2 /* { dg-do compile } */
   3 /* { dg-skip-if "" { *-*-* } { "-flto" } { "" } } */
   4 /* { dg-options "-fdump-tree-optimized" } */
   5
   6 void Perl_croak() __attribute__((noreturn));
   7 char *Perl_sv_gets();
   8 void __attribute__((returns_twice)) __sigsetjmp ();
   9 void a() {
  10     __sigsetjmp();
  11     char *b;
  12     if ((b = Perl_sv_gets()) == 0)
  13       Perl_croak("No Perl script found in input\n");
  14     if (*b == '#')
  15       __asm__("" : : ""("badbad"));
  16 }
  17
  18 /* Do not elide the test against zero.  */
  19 /* { dg-final { scan-tree-dump " == 0B" "optimized" } } */