1  /* Verify -Wdangling-pointer is issued only once.
       2     { dg-do compile }
       3     { dg-options "-O -Wall" } */
       4  
       5  void *p;
       6  
       7  void escape_global_warn_once (void)
       8  {
       9    int x[5];
      10  
      11    p = &x[3];        // { dg-regexp "\[^\n\r\]+: warning: \[^\n\r\]+ \\\[-Wdangling-pointer.?\\\]" "message" }
      12  }
      13  
      14  
      15  void escape_param_warn_once (void **p)
      16  {
      17    int x[5];
      18  
      19    *p = &x[3];       // { dg-regexp "\[^\n\r\]+: warning: \[^\n\r\]+ \\\[-Wdangling-pointer.?\\\]" "message" }
      20  }