1/* Copyright (C) 2006-2021 Free Software Foundation, Inc. 2 3This file is part of GCC. 4 5GCC is free software; you can redistribute it and/or modify it under 6the terms of the GNU General Public License as published by the Free 7Software Foundation; either version 3, or (at your option) any later 8version. 9 10GCC is distributed in the hope that it will be useful, but WITHOUT ANY 11WARRANTY; without even the implied warranty of MERCHANTABILITY or 12FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 13for more details. 14 15You should have received a copy of the GNU General Public License 16along with GCC; see the file COPYING3. If not see 17<http://www.gnu.org/licenses/>. */ 18 19/* This file contains the definition of the types provided by the 20 Fortran 2003 ISO_C_BINDING intrinsic module. */ 21 22#ifndef NAMED_INTCST 23# define NAMED_INTCST(a,b,c,d) 24#endif 25 26#ifndef NAMED_REALCST 27# define NAMED_REALCST(a,b,c,d) 28#endif 29 30#ifndef NAMED_CMPXCST 31# define NAMED_CMPXCST(a,b,c,d) 32#endif 33 34#ifndef NAMED_LOGCST 35# define NAMED_LOGCST(a,b,c) 36#endif 37 38#ifndef NAMED_CHARKNDCST 39# define NAMED_CHARKNDCST(a,b,c) 40#endif 41 42#ifndef NAMED_FUNCTION 43# define NAMED_FUNCTION(a,b,c,d) 44#endif 45 46#ifndef NAMED_SUBROUTINE 47# define NAMED_SUBROUTINE(a,b,c,d) 48#endif 49 50/* The arguments to NAMED_*CST are: 51 -- an internal name 52 -- the symbol name in the module, as seen by Fortran code 53 -- the value it has, for use in trans-types.c 54 -- the standard that supports this type */ 55 56NAMED_INTCST (ISOCBINDING_INT, "c_int", gfc_c_int_kind, GFC_STD_F2003) 57NAMED_INTCST (ISOCBINDING_SHORT, "c_short", \ 58 get_int_kind_from_node (short_integer_type_node), GFC_STD_F2003) 59NAMED_INTCST (ISOCBINDING_LONG, "c_long", \ 60 get_int_kind_from_node (long_integer_type_node), GFC_STD_F2003) 61NAMED_INTCST (ISOCBINDING_LONG_LONG, "c_long_long", \ 62 get_int_kind_from_node (long_long_integer_type_node), GFC_STD_F2003) 63 64NAMED_INTCST (ISOCBINDING_INTMAX_T, "c_intmax_t", \ 65 get_int_kind_from_name (INTMAX_TYPE), GFC_STD_F2003) 66NAMED_INTCST (ISOCBINDING_INTPTR_T, "c_intptr_t", \ 67 get_int_kind_from_name (INTPTR_TYPE), GFC_STD_F2003) 68NAMED_INTCST (ISOCBINDING_PTRDIFF_T, "c_ptrdiff_t", \ 69 get_int_kind_from_name (PTRDIFF_TYPE), GFC_STD_F2018) 70NAMED_INTCST (ISOCBINDING_SIZE_T, "c_size_t", \ 71 gfc_index_integer_kind, GFC_STD_F2003) 72NAMED_INTCST (ISOCBINDING_SIGNED_CHAR, "c_signed_char", \ 73 get_int_kind_from_node (signed_char_type_node), GFC_STD_F2003) 74 75NAMED_INTCST (ISOCBINDING_INT8_T, "c_int8_t", \ 76 get_int_kind_from_name (INT8_TYPE), GFC_STD_F2003) 77NAMED_INTCST (ISOCBINDING_INT16_T, "c_int16_t", \ 78 get_int_kind_from_name (INT16_TYPE), GFC_STD_F2003) 79NAMED_INTCST (ISOCBINDING_INT32_T, "c_int32_t", \ 80 get_int_kind_from_name (INT32_TYPE), GFC_STD_F2003) 81NAMED_INTCST (ISOCBINDING_INT64_T, "c_int64_t", \ 82 get_int_kind_from_name (INT64_TYPE), GFC_STD_F2003) 83/* GNU Extension. */ 84NAMED_INTCST (ISOCBINDING_INT128_T, "c_int128_t", \ 85 get_int_kind_from_width (128), GFC_STD_GNU) 86 87NAMED_INTCST (ISOCBINDING_INT_LEAST8_T, "c_int_least8_t", \ 88 get_int_kind_from_name (INT_LEAST8_TYPE), GFC_STD_F2003) 89NAMED_INTCST (ISOCBINDING_INT_LEAST16_T, "c_int_least16_t", \ 90 get_int_kind_from_name (INT_LEAST16_TYPE), GFC_STD_F2003) 91NAMED_INTCST (ISOCBINDING_INT_LEAST32_T, "c_int_least32_t", \ 92 get_int_kind_from_name (INT_LEAST32_TYPE), GFC_STD_F2003) 93NAMED_INTCST (ISOCBINDING_INT_LEAST64_T, "c_int_least64_t", \ 94 get_int_kind_from_name (INT_LEAST64_TYPE), GFC_STD_F2003) 95/* GNU Extension. */ 96NAMED_INTCST (ISOCBINDING_INT_LEAST128_T, "c_int_least128_t", \ 97 get_int_kind_from_minimal_width (128), GFC_STD_GNU) 98 99NAMED_INTCST (ISOCBINDING_INT_FAST8_T, "c_int_fast8_t", \ 100 get_int_kind_from_name (INT_FAST8_TYPE), GFC_STD_F2003) 101NAMED_INTCST (ISOCBINDING_INT_FAST16_T, "c_int_fast16_t", \ 102 get_int_kind_from_name (INT_FAST16_TYPE), GFC_STD_F2003) 103NAMED_INTCST (ISOCBINDING_INT_FAST32_T, "c_int_fast32_t", \ 104 get_int_kind_from_name (INT_FAST32_TYPE), GFC_STD_F2003) 105NAMED_INTCST (ISOCBINDING_INT_FAST64_T, "c_int_fast64_t", \ 106 get_int_kind_from_name (INT_FAST64_TYPE), GFC_STD_F2003) 107/* GNU Extension. */ 108NAMED_INTCST (ISOCBINDING_INT_FAST128_T, "c_int_fast128_t", 109 get_int_kind_from_width (128), GFC_STD_GNU) 110 111NAMED_REALCST (ISOCBINDING_FLOAT, "c_float", \ 112 get_real_kind_from_node (float_type_node), GFC_STD_F2003) 113NAMED_REALCST (ISOCBINDING_DOUBLE, "c_double", \ 114 get_real_kind_from_node (double_type_node), GFC_STD_F2003) 115NAMED_REALCST (ISOCBINDING_LONG_DOUBLE, "c_long_double", \ 116 get_real_kind_from_node (long_double_type_node), GFC_STD_F2003) 117 118/* GNU Extension. Note that the equivalence here is specifically to 119 the IEEE 128-bit type _Float128; if that does not map onto a type 120 otherwise supported by the Fortran front end, get_real_kind_from_node 121 will reject it as unsupported. */ 122NAMED_REALCST (ISOCBINDING_FLOAT128, "c_float128", \ 123 (float128_type_node == NULL_TREE \ 124 ? -4 : get_real_kind_from_node (float128_type_node)), \ 125 GFC_STD_GNU) 126NAMED_CMPXCST (ISOCBINDING_FLOAT_COMPLEX, "c_float_complex", \ 127 get_real_kind_from_node (float_type_node), GFC_STD_F2003) 128NAMED_CMPXCST (ISOCBINDING_DOUBLE_COMPLEX, "c_double_complex", \ 129 get_real_kind_from_node (double_type_node), GFC_STD_F2003) 130NAMED_CMPXCST (ISOCBINDING_LONG_DOUBLE_COMPLEX, "c_long_double_complex", \ 131 get_real_kind_from_node (long_double_type_node), GFC_STD_F2003) 132 133/* GNU Extension. Similar issues to c_float128 above. */ 134NAMED_CMPXCST (ISOCBINDING_FLOAT128_COMPLEX, "c_float128_complex", \ 135 (float128_type_node == NULL_TREE \ 136 ? -4 : get_real_kind_from_node (float128_type_node)), \ 137 GFC_STD_GNU) 138 139NAMED_LOGCST (ISOCBINDING_BOOL, "c_bool", \ 140 get_int_kind_from_width (BOOL_TYPE_SIZE)) 141 142NAMED_CHARKNDCST (ISOCBINDING_CHAR, "c_char", gfc_default_character_kind) 143 144#ifndef NAMED_CHARCST 145# define NAMED_CHARCST(a,b,c) 146#endif 147 148/* Use langhooks to deal with host to target translations. */ 149NAMED_CHARCST (ISOCBINDING_NULL_CHAR, "c_null_char", \ 150 lang_hooks.to_target_charset ('\0')) 151NAMED_CHARCST (ISOCBINDING_ALERT, "c_alert", \ 152 lang_hooks.to_target_charset ('\a')) 153NAMED_CHARCST (ISOCBINDING_BACKSPACE, "c_backspace", \ 154 lang_hooks.to_target_charset ('\b')) 155NAMED_CHARCST (ISOCBINDING_FORM_FEED, "c_form_feed", \ 156 lang_hooks.to_target_charset ('\f')) 157NAMED_CHARCST (ISOCBINDING_NEW_LINE, "c_new_line", \ 158 lang_hooks.to_target_charset ('\n')) 159NAMED_CHARCST (ISOCBINDING_CARRIAGE_RETURN, "c_carriage_return", \ 160 lang_hooks.to_target_charset ('\r')) 161NAMED_CHARCST (ISOCBINDING_HORIZONTAL_TAB, "c_horizontal_tab", \ 162 lang_hooks.to_target_charset ('\t')) 163NAMED_CHARCST (ISOCBINDING_VERTICAL_TAB, "c_vertical_tab", \ 164 lang_hooks.to_target_charset ('\v')) 165 166#ifndef DERIVED_TYPE 167# define DERIVED_TYPE(a,b,c) 168#endif 169 170DERIVED_TYPE (ISOCBINDING_PTR, "c_ptr", \ 171 get_int_kind_from_node (ptr_type_node)) 172DERIVED_TYPE (ISOCBINDING_NULL_PTR, "c_null_ptr", \ 173 get_int_kind_from_node (ptr_type_node)) 174DERIVED_TYPE (ISOCBINDING_FUNPTR, "c_funptr", \ 175 get_int_kind_from_node (ptr_type_node)) 176DERIVED_TYPE (ISOCBINDING_NULL_FUNPTR, "c_null_funptr", \ 177 get_int_kind_from_node (ptr_type_node)) 178 179/* The arguments to NAMED_FUNCTIONS and NAMED_SUBROUTINES are: 180 -- the ISYM 181 -- the symbol name in the module, as seen by Fortran code 182 -- the Fortran standard */ 183 184NAMED_SUBROUTINE (ISOCBINDING_F_POINTER, "c_f_pointer", 185 GFC_ISYM_C_F_POINTER, GFC_STD_F2003) 186NAMED_SUBROUTINE (ISOCBINDING_F_PROCPOINTER, "c_f_procpointer", 187 GFC_ISYM_C_F_PROCPOINTER, GFC_STD_F2003) 188 189NAMED_FUNCTION (ISOCBINDING_ASSOCIATED, "c_associated", 190 GFC_ISYM_C_ASSOCIATED, GFC_STD_F2003) 191NAMED_FUNCTION (ISOCBINDING_FUNLOC, "c_funloc", 192 GFC_ISYM_C_FUNLOC, GFC_STD_F2003) 193NAMED_FUNCTION (ISOCBINDING_LOC, "c_loc", 194 GFC_ISYM_C_LOC, GFC_STD_F2003) 195 196NAMED_FUNCTION (ISOCBINDING_C_SIZEOF, "c_sizeof", \ 197 GFC_ISYM_C_SIZEOF, GFC_STD_F2008) 198 199#undef NAMED_INTCST 200#undef NAMED_REALCST 201#undef NAMED_CMPXCST 202#undef NAMED_LOGCST 203#undef NAMED_CHARCST 204#undef NAMED_CHARKNDCST 205#undef DERIVED_TYPE 206#undef NAMED_FUNCTION 207#undef NAMED_SUBROUTINE 208