Subversion Repositories openrisc

/* 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;

}