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 ();
a()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" } } */
20