1  /* { dg-do compile { target R_flag_in_section } } */
       2  /* { dg-skip-if "non-ELF target" { *-*-darwin* powerpc*-*-aix* } } */
       3  /* { dg-options "-Wall -O2" } */
       4  
       5  struct dtv_slotinfo_list
       6  {
       7    struct dtv_slotinfo_list *next;
       8  };
       9  
      10  extern struct dtv_slotinfo_list *list;
      11  
      12  static int __attribute__ ((used, retain, section ("__libc_freeres_fn")))
      13  free_slotinfo (struct dtv_slotinfo_list **elemp)
      14  {
      15    if (!free_slotinfo (&(*elemp)->next))
      16      return 0;
      17    return 1;
      18  }
      19  
      20  /* Prune out the valid warning for the function above:
      21     { dg-prune-output "-Winfinite-recursion" } */
      22  
      23  __attribute__ ((section ("__libc_freeres_fn")))
      24  void free_mem (void)
      25  /* { dg-warning "'.*' without 'retain' attribute and '.*' with 'retain' attribute are placed in a section with the same name" "" { target R_flag_in_section } .-1 } */
      26  {
      27    free_slotinfo (&list);
      28  }
      29  
      30  /* { dg-final { scan-assembler "__libc_freeres_fn,\"ax\"" { target R_flag_in_section } } } */
      31  /* { dg-final { scan-assembler "__libc_freeres_fn,\"axR\"" { target R_flag_in_section } } } */