1 /* Copyright (C) 2006, 2007, 2008, 2010 Free Software Foundation, Inc.
3 This file is part of GCC.
5 GCC is free software; you can redistribute it and/or modify it under
6 the terms of the GNU General Public License as published by the Free
7 Software Foundation; either version 3, or (at your option) any later
10 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
11 WARRANTY; without even the implied warranty of MERCHANTABILITY or
12 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 You should have received a copy of the GNU General Public License
16 along with GCC; see the file COPYING3. If not see
17 <http://www.gnu.org/licenses/>. */
19 /* This file contains the definition of the types provided by the
20 Fortran 2003 ISO_C_BINDING intrinsic module. */
23 # define NAMED_INTCST(a,b,c,d)
27 # define NAMED_REALCST(a,b,c,d)
31 # define NAMED_CMPXCST(a,b,c,d)
35 # define NAMED_LOGCST(a,b,c)
38 #ifndef NAMED_CHARKNDCST
39 # define NAMED_CHARKNDCST(a,b,c)
42 #ifndef NAMED_FUNCTION
43 # define NAMED_FUNCTION(a,b,c,d)
46 /* The arguments to NAMED_*CST are:
48 -- the symbol name in the module, as seen by Fortran code
49 -- the value it has, for use in trans-types.c
50 -- the standard that supports this type */
52 NAMED_INTCST (ISOCBINDING_INT, "c_int", gfc_c_int_kind, GFC_STD_F2003)
53 NAMED_INTCST (ISOCBINDING_SHORT, "c_short", \
54 get_int_kind_from_node (short_integer_type_node), GFC_STD_F2003)
55 NAMED_INTCST (ISOCBINDING_LONG, "c_long", \
56 get_int_kind_from_node (long_integer_type_node), GFC_STD_F2003)
57 NAMED_INTCST (ISOCBINDING_LONG_LONG, "c_long_long", \
58 get_int_kind_from_node (long_long_integer_type_node), GFC_STD_F2003)
60 NAMED_INTCST (ISOCBINDING_INTMAX_T, "c_intmax_t", \
61 get_int_kind_from_name (INTMAX_TYPE), GFC_STD_F2003)
62 NAMED_INTCST (ISOCBINDING_INTPTR_T, "c_intptr_t", \
63 get_int_kind_from_name (INTPTR_TYPE), GFC_STD_F2003)
64 NAMED_INTCST (ISOCBINDING_SIZE_T, "c_size_t", \
65 gfc_index_integer_kind, GFC_STD_F2003)
66 NAMED_INTCST (ISOCBINDING_SIGNED_CHAR, "c_signed_char", \
67 get_int_kind_from_node (signed_char_type_node), GFC_STD_F2003)
69 NAMED_INTCST (ISOCBINDING_INT8_T, "c_int8_t", \
70 get_int_kind_from_name (INT8_TYPE), GFC_STD_F2003)
71 NAMED_INTCST (ISOCBINDING_INT16_T, "c_int16_t", \
72 get_int_kind_from_name (INT16_TYPE), GFC_STD_F2003)
73 NAMED_INTCST (ISOCBINDING_INT32_T, "c_int32_t", \
74 get_int_kind_from_name (INT32_TYPE), GFC_STD_F2003)
75 NAMED_INTCST (ISOCBINDING_INT64_T, "c_int64_t", \
76 get_int_kind_from_name (INT64_TYPE), GFC_STD_F2003)
78 NAMED_INTCST (ISOCBINDING_INT128_T, "c_int128_t", \
79 get_int_kind_from_width (128), GFC_STD_GNU)
81 NAMED_INTCST (ISOCBINDING_INT_LEAST8_T, "c_int_least8_t", \
82 get_int_kind_from_name (INT_LEAST8_TYPE), GFC_STD_F2003)
83 NAMED_INTCST (ISOCBINDING_INT_LEAST16_T, "c_int_least16_t", \
84 get_int_kind_from_name (INT_LEAST16_TYPE), GFC_STD_F2003)
85 NAMED_INTCST (ISOCBINDING_INT_LEAST32_T, "c_int_least32_t", \
86 get_int_kind_from_name (INT_LEAST32_TYPE), GFC_STD_F2003)
87 NAMED_INTCST (ISOCBINDING_INT_LEAST64_T, "c_int_least64_t", \
88 get_int_kind_from_name (INT_LEAST64_TYPE), GFC_STD_F2003)
90 NAMED_INTCST (ISOCBINDING_INT_LEAST128_T, "c_int_least128_t", \
91 get_int_kind_from_minimal_width (128), GFC_STD_GNU)
93 NAMED_INTCST (ISOCBINDING_INT_FAST8_T, "c_int_fast8_t", \
94 get_int_kind_from_name (INT_FAST8_TYPE), GFC_STD_F2003)
95 NAMED_INTCST (ISOCBINDING_INT_FAST16_T, "c_int_fast16_t", \
96 get_int_kind_from_name (INT_FAST16_TYPE), GFC_STD_F2003)
97 NAMED_INTCST (ISOCBINDING_INT_FAST32_T, "c_int_fast32_t", \
98 get_int_kind_from_name (INT_FAST32_TYPE), GFC_STD_F2003)
99 NAMED_INTCST (ISOCBINDING_INT_FAST64_T, "c_int_fast64_t", \
100 get_int_kind_from_name (INT_FAST64_TYPE), GFC_STD_F2003)
102 NAMED_INTCST (ISOCBINDING_INT_FAST128_T, "c_int_fast128_t",
103 get_int_kind_from_width (128), GFC_STD_GNU)
105 NAMED_REALCST (ISOCBINDING_FLOAT, "c_float", \
106 get_real_kind_from_node (float_type_node), GFC_STD_F2003)
107 NAMED_REALCST (ISOCBINDING_DOUBLE, "c_double", \
108 get_real_kind_from_node (double_type_node), GFC_STD_F2003)
109 NAMED_REALCST (ISOCBINDING_LONG_DOUBLE, "c_long_double", \
110 get_real_kind_from_node (long_double_type_node), GFC_STD_F2003)
111 NAMED_REALCST (ISOCBINDING_FLOAT128, "c_float128", \
112 float128_type_node == NULL_TREE \
113 ? -4 : get_real_kind_from_node (float128_type_node), \
115 NAMED_CMPXCST (ISOCBINDING_FLOAT_COMPLEX, "c_float_complex", \
116 get_real_kind_from_node (float_type_node), GFC_STD_F2003)
117 NAMED_CMPXCST (ISOCBINDING_DOUBLE_COMPLEX, "c_double_complex", \
118 get_real_kind_from_node (double_type_node), GFC_STD_F2003)
119 NAMED_CMPXCST (ISOCBINDING_LONG_DOUBLE_COMPLEX, "c_long_double_complex", \
120 get_real_kind_from_node (long_double_type_node), GFC_STD_F2003)
121 NAMED_CMPXCST (ISOCBINDING_FLOAT128_COMPLEX, "c_float128_complex", \
122 float128_type_node == NULL_TREE \
123 ? -4 : get_real_kind_from_node (float128_type_node), \
126 NAMED_LOGCST (ISOCBINDING_BOOL, "c_bool", \
127 get_int_kind_from_width (BOOL_TYPE_SIZE))
129 NAMED_CHARKNDCST (ISOCBINDING_CHAR, "c_char", gfc_default_character_kind)
131 #ifndef NAMED_CHARCST
132 # define NAMED_CHARCST(a,b,c)
135 /* Use langhooks to deal with host to target translations. */
136 NAMED_CHARCST (ISOCBINDING_NULL_CHAR, "c_null_char", \
137 lang_hooks.to_target_charset ('\0'))
138 NAMED_CHARCST (ISOCBINDING_ALERT, "c_alert", \
139 lang_hooks.to_target_charset ('\a'))
140 NAMED_CHARCST (ISOCBINDING_BACKSPACE, "c_backspace", \
141 lang_hooks.to_target_charset ('\b'))
142 NAMED_CHARCST (ISOCBINDING_FORM_FEED, "c_form_feed", \
143 lang_hooks.to_target_charset ('\f'))
144 NAMED_CHARCST (ISOCBINDING_NEW_LINE, "c_new_line", \
145 lang_hooks.to_target_charset ('\n'))
146 NAMED_CHARCST (ISOCBINDING_CARRIAGE_RETURN, "c_carriage_return", \
147 lang_hooks.to_target_charset ('\r'))
148 NAMED_CHARCST (ISOCBINDING_HORIZONTAL_TAB, "c_horizontal_tab", \
149 lang_hooks.to_target_charset ('\t'))
150 NAMED_CHARCST (ISOCBINDING_VERTICAL_TAB, "c_vertical_tab", \
151 lang_hooks.to_target_charset ('\v'))
154 # define DERIVED_TYPE(a,b,c)
157 DERIVED_TYPE (ISOCBINDING_PTR, "c_ptr", \
158 get_int_kind_from_node (ptr_type_node))
159 DERIVED_TYPE (ISOCBINDING_NULL_PTR, "c_null_ptr", \
160 get_int_kind_from_node (ptr_type_node))
161 DERIVED_TYPE (ISOCBINDING_FUNPTR, "c_funptr", \
162 get_int_kind_from_node (ptr_type_node))
163 DERIVED_TYPE (ISOCBINDING_NULL_FUNPTR, "c_null_funptr", \
164 get_int_kind_from_node (ptr_type_node))
168 # define PROCEDURE(a,b)
171 PROCEDURE (ISOCBINDING_F_POINTER, "c_f_pointer")
172 PROCEDURE (ISOCBINDING_ASSOCIATED, "c_associated")
173 PROCEDURE (ISOCBINDING_LOC, "c_loc")
174 PROCEDURE (ISOCBINDING_FUNLOC, "c_funloc")
175 PROCEDURE (ISOCBINDING_F_PROCPOINTER, "c_f_procpointer")
177 /* The arguments to NAMED_FUNCTIONS are:
179 -- the symbol name in the module, as seen by Fortran code
180 -- the Fortran standard */
182 NAMED_FUNCTION (ISOCBINDING_C_SIZEOF, "c_sizeof", \
183 GFC_ISYM_C_SIZEOF, GFC_STD_F2008)
191 #undef NAMED_CHARKNDCST
194 #undef NAMED_FUNCTION