view gcc/testsuite/gcc.dg/torture/builtin-wctype-1.c @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line source

/* Copyright (C) 2004, 2005  Free Software Foundation.

   Verify that built-in wctype function attributes are correctly set
   by the compiler.

   Written by Kaveh Ghazi, 2004-03-25.  */

/* { dg-do link } */

/* Use the target type definitions if we can.  */ 
#ifndef __WINT_TYPE__
#define __WINT_TYPE__ int
#endif

#ifndef __WCHAR_TYPE__
#define __WCHAR_TYPE__ int
#endif

void test(int i)
{
  /* All of these ctype functions should be const/pure and thus
     eliminated.  */
#define TEST_IS_WCTYPE(FN) \
  extern int FN(__WINT_TYPE__); \
  extern void link_failure_##FN(void); \
  if (FN(i) != FN(i)) \
    link_failure_##FN()

#define TEST_TO_WCTYPE(FN) \
  extern __WINT_TYPE__ FN(__WINT_TYPE__); \
  extern void link_failure_##FN(void); \
  if (FN(i) != FN(i)) \
    link_failure_##FN()

  
#ifdef __OPTIMIZE__
  TEST_IS_WCTYPE(iswalnum);
  TEST_IS_WCTYPE(iswalpha);
  TEST_IS_WCTYPE(iswblank);
  TEST_IS_WCTYPE(iswcntrl);
  TEST_IS_WCTYPE(iswdigit);
  TEST_IS_WCTYPE(iswgraph);
  TEST_IS_WCTYPE(iswlower);
  TEST_IS_WCTYPE(iswprint);
  TEST_IS_WCTYPE(iswpunct);
  TEST_IS_WCTYPE(iswspace);
  TEST_IS_WCTYPE(iswupper);
  TEST_IS_WCTYPE(iswxdigit);
  TEST_TO_WCTYPE(towlower);
  TEST_TO_WCTYPE(towupper);
#endif /* __OPTIMIZE__ */
}

int main (void)
{
  return 0;
}