1  /* { dg-do compile } */
       2  /* { dg-options "-O2" } */
       3  
       4  extern __SIZE_TYPE__ strlen (__const char *__s)
       5       __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));
       6  extern char *strcpy (char *__restrict __dest, __const char *__restrict __src)
       7       __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2)));
       8  extern char *getenv (__const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
       9  extern int access (__const char *__name, int __type) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1)));
      10  extern void * xmalloc (__SIZE_TYPE__) __attribute__ ((__malloc__));
      11  
      12  static __inline__ const char *
      13  try (const char *dir, const char *base)
      14  {
      15    if (base != 0)
      16      return base;
      17    if (dir != 0
      18        && access (dir, 4 | 2 | 1) == 0)
      19      return dir;
      20    return 0;
      21  }
      22  
      23  static const char tmp[] = { '/', 't', 'm', 'p', 0 };
      24  static const char usrtmp[] =
      25  { '/', 'u', 's', 'r', '/', 't', 'm', 'p', 0 };
      26  static const char vartmp[] =
      27  { '/', 'v', 'a', 'r', '/', 't', 'm', 'p', 0 };
      28  
      29  static char *memoized_tmpdir;
      30  char *
      31  choose_tmpdir (void)
      32  {
      33    const char *base = 0;
      34    char *tmpdir;
      35    unsigned int len;
      36  
      37    if (memoized_tmpdir)
      38      return memoized_tmpdir;
      39  
      40    base = try (getenv ("TMPDIR"), base);
      41    base = try (getenv ("TMP"), base);
      42    base = try (getenv ("TEMP"), base);
      43  
      44  
      45    base = try ("/tmp", base);
      46  
      47  
      48  
      49    base = try (vartmp, base);
      50    base = try (usrtmp, base);
      51    base = try (tmp, base);
      52  
      53  
      54    if (base == 0)
      55      base = ".";
      56  
      57  
      58  
      59    len = strlen (base);
      60    tmpdir = xmalloc (len + 2);
      61    strcpy (tmpdir, base);
      62    /* Alias analysis was associating read-only memory tags to pointers
      63       that are not read-only.  We would then not issue any V_MAY_DEF in
      64       this store.  */
      65    tmpdir[len] = '/';
      66    tmpdir[len+1] = '\0';
      67  
      68    memoized_tmpdir = tmpdir;
      69    return tmpdir;
      70  }