blob: 5b4371e1417c3314448c36182d4a94441cf52784 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
/* 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;
}
|