[thirdparty/gcc.git] / gcc / fortran / iso-c-binding.def

/* Copyright (C) 2006-2022 Free Software Foundation, Inc.

This file is part of GCC.

GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 3, or (at your option) any later
version.

GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.

You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING3.  If not see
<http://www.gnu.org/licenses/>.  */

/* This file contains the definition of the types provided by the
   Fortran 2003 ISO_C_BINDING intrinsic module.  */

#ifndef NAMED_INTCST
# define NAMED_INTCST(a,b,c,d) 
#endif

#ifndef NAMED_REALCST
# define NAMED_REALCST(a,b,c,d) 
#endif

#ifndef NAMED_CMPXCST
# define NAMED_CMPXCST(a,b,c,d) 
#endif

#ifndef NAMED_LOGCST
# define NAMED_LOGCST(a,b,c) 
#endif

#ifndef NAMED_CHARKNDCST
# define NAMED_CHARKNDCST(a,b,c) 
#endif

#ifndef NAMED_FUNCTION
# define NAMED_FUNCTION(a,b,c,d)
#endif

#ifndef NAMED_SUBROUTINE
# define NAMED_SUBROUTINE(a,b,c,d)
#endif

/* The arguments to NAMED_*CST are:
     -- an internal name
     -- the symbol name in the module, as seen by Fortran code
     -- the value it has, for use in trans-types.cc  
     -- the standard that supports this type  */

NAMED_INTCST (ISOCBINDING_INT, "c_int", gfc_c_int_kind, GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_SHORT, "c_short", \
              get_int_kind_from_node (short_integer_type_node), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_LONG, "c_long", \
              get_int_kind_from_node (long_integer_type_node), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_LONG_LONG, "c_long_long", \
              get_int_kind_from_node (long_long_integer_type_node), GFC_STD_F2003)

NAMED_INTCST (ISOCBINDING_INTMAX_T, "c_intmax_t", \
              get_int_kind_from_name (INTMAX_TYPE), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_INTPTR_T, "c_intptr_t", \
              get_int_kind_from_name (INTPTR_TYPE), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_PTRDIFF_T, "c_ptrdiff_t", \
              get_int_kind_from_name (PTRDIFF_TYPE), GFC_STD_F2018)
NAMED_INTCST (ISOCBINDING_SIZE_T, "c_size_t", \
              gfc_index_integer_kind, GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_SIGNED_CHAR, "c_signed_char", \
              get_int_kind_from_node (signed_char_type_node), GFC_STD_F2003)

NAMED_INTCST (ISOCBINDING_INT8_T, "c_int8_t", \
              get_int_kind_from_name (INT8_TYPE), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_INT16_T, "c_int16_t", \
              get_int_kind_from_name (INT16_TYPE), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_INT32_T, "c_int32_t", \
              get_int_kind_from_name (INT32_TYPE), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_INT64_T, "c_int64_t", \
              get_int_kind_from_name (INT64_TYPE), GFC_STD_F2003)
/* GNU Extension.  */
NAMED_INTCST (ISOCBINDING_INT128_T, "c_int128_t", \
              get_int_kind_from_width (128), GFC_STD_GNU)

NAMED_INTCST (ISOCBINDING_INT_LEAST8_T, "c_int_least8_t", \
              get_int_kind_from_name (INT_LEAST8_TYPE), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_INT_LEAST16_T, "c_int_least16_t", \
              get_int_kind_from_name (INT_LEAST16_TYPE), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_INT_LEAST32_T, "c_int_least32_t", \
              get_int_kind_from_name (INT_LEAST32_TYPE), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_INT_LEAST64_T, "c_int_least64_t", \
              get_int_kind_from_name (INT_LEAST64_TYPE), GFC_STD_F2003)
/* GNU Extension.  */
NAMED_INTCST (ISOCBINDING_INT_LEAST128_T, "c_int_least128_t", \
              get_int_kind_from_minimal_width (128), GFC_STD_GNU)

NAMED_INTCST (ISOCBINDING_INT_FAST8_T, "c_int_fast8_t", \
              get_int_kind_from_name (INT_FAST8_TYPE), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_INT_FAST16_T, "c_int_fast16_t", \
              get_int_kind_from_name (INT_FAST16_TYPE), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_INT_FAST32_T, "c_int_fast32_t", \
              get_int_kind_from_name (INT_FAST32_TYPE), GFC_STD_F2003)
NAMED_INTCST (ISOCBINDING_INT_FAST64_T, "c_int_fast64_t", \
              get_int_kind_from_name (INT_FAST64_TYPE), GFC_STD_F2003)
/* GNU Extension.  */
NAMED_INTCST (ISOCBINDING_INT_FAST128_T, "c_int_fast128_t",
	      get_int_kind_from_width (128), GFC_STD_GNU)

NAMED_REALCST (ISOCBINDING_FLOAT, "c_float", \
               get_real_kind_from_node (float_type_node), GFC_STD_F2003)
NAMED_REALCST (ISOCBINDING_DOUBLE, "c_double", \
               get_real_kind_from_node (double_type_node), GFC_STD_F2003)
NAMED_REALCST (ISOCBINDING_LONG_DOUBLE, "c_long_double", \
               get_real_kind_from_node (long_double_type_node), GFC_STD_F2003)

/* GNU Extension.  Note that the equivalence here is specifically to
   the IEEE 128-bit type _Float128; if that does not map onto a type
   otherwise supported by the Fortran front end, get_real_kind_from_node
   will reject it as unsupported.  */
NAMED_REALCST (ISOCBINDING_FLOAT128, "c_float128", \
		(float128_type_node == NULL_TREE \
		 ? -4 : get_real_kind_from_node (float128_type_node)), \
	       GFC_STD_GNU)
NAMED_CMPXCST (ISOCBINDING_FLOAT_COMPLEX, "c_float_complex", \
               get_real_kind_from_node (float_type_node), GFC_STD_F2003)
NAMED_CMPXCST (ISOCBINDING_DOUBLE_COMPLEX, "c_double_complex", \
               get_real_kind_from_node (double_type_node), GFC_STD_F2003)
NAMED_CMPXCST (ISOCBINDING_LONG_DOUBLE_COMPLEX, "c_long_double_complex", \
               get_real_kind_from_node (long_double_type_node), GFC_STD_F2003)

/* GNU Extension.  Similar issues to c_float128 above.  */
NAMED_CMPXCST (ISOCBINDING_FLOAT128_COMPLEX, "c_float128_complex", \
		(float128_type_node == NULL_TREE \
		 ? -4 : get_real_kind_from_node (float128_type_node)), \
	       GFC_STD_GNU)

NAMED_LOGCST (ISOCBINDING_BOOL, "c_bool", \
              get_int_kind_from_width (BOOL_TYPE_SIZE))

NAMED_CHARKNDCST (ISOCBINDING_CHAR, "c_char", gfc_default_character_kind)

#ifndef NAMED_CHARCST
# define NAMED_CHARCST(a,b,c) 
#endif

/* Use langhooks to deal with host to target translations.  */ 
NAMED_CHARCST (ISOCBINDING_NULL_CHAR, "c_null_char", \
	       lang_hooks.to_target_charset ('\0'))
NAMED_CHARCST (ISOCBINDING_ALERT, "c_alert", \
	       lang_hooks.to_target_charset ('\a'))
NAMED_CHARCST (ISOCBINDING_BACKSPACE, "c_backspace", \
	       lang_hooks.to_target_charset ('\b'))
NAMED_CHARCST (ISOCBINDING_FORM_FEED, "c_form_feed", \
	       lang_hooks.to_target_charset ('\f'))
NAMED_CHARCST (ISOCBINDING_NEW_LINE, "c_new_line", \
	       lang_hooks.to_target_charset ('\n'))
NAMED_CHARCST (ISOCBINDING_CARRIAGE_RETURN, "c_carriage_return", \
	       lang_hooks.to_target_charset ('\r'))
NAMED_CHARCST (ISOCBINDING_HORIZONTAL_TAB, "c_horizontal_tab", \
	       lang_hooks.to_target_charset ('\t'))
NAMED_CHARCST (ISOCBINDING_VERTICAL_TAB, "c_vertical_tab", \
	       lang_hooks.to_target_charset ('\v'))

#ifndef DERIVED_TYPE
# define DERIVED_TYPE(a,b,c) 
#endif

DERIVED_TYPE (ISOCBINDING_PTR, "c_ptr", \
              get_int_kind_from_node (ptr_type_node))
DERIVED_TYPE (ISOCBINDING_NULL_PTR, "c_null_ptr", \
              get_int_kind_from_node (ptr_type_node))
DERIVED_TYPE (ISOCBINDING_FUNPTR, "c_funptr", \
              get_int_kind_from_node (ptr_type_node))
DERIVED_TYPE (ISOCBINDING_NULL_FUNPTR, "c_null_funptr", \
              get_int_kind_from_node (ptr_type_node))

/* The arguments to NAMED_FUNCTIONS and NAMED_SUBROUTINES are:
     -- the ISYM
     -- the symbol name in the module, as seen by Fortran code
     -- the Fortran standard  */

NAMED_SUBROUTINE (ISOCBINDING_F_POINTER, "c_f_pointer",
                  GFC_ISYM_C_F_POINTER, GFC_STD_F2003)
NAMED_SUBROUTINE (ISOCBINDING_F_PROCPOINTER, "c_f_procpointer",
                  GFC_ISYM_C_F_PROCPOINTER, GFC_STD_F2003)

NAMED_FUNCTION (ISOCBINDING_ASSOCIATED, "c_associated",
		GFC_ISYM_C_ASSOCIATED, GFC_STD_F2003)
NAMED_FUNCTION (ISOCBINDING_FUNLOC, "c_funloc",
                GFC_ISYM_C_FUNLOC, GFC_STD_F2003)
NAMED_FUNCTION (ISOCBINDING_LOC, "c_loc",
                GFC_ISYM_C_LOC, GFC_STD_F2003)

NAMED_FUNCTION (ISOCBINDING_C_SIZEOF, "c_sizeof", \
                GFC_ISYM_C_SIZEOF, GFC_STD_F2008)

#undef NAMED_INTCST
#undef NAMED_REALCST
#undef NAMED_CMPXCST
#undef NAMED_LOGCST
#undef NAMED_CHARCST
#undef NAMED_CHARKNDCST
#undef DERIVED_TYPE
#undef NAMED_FUNCTION
#undef NAMED_SUBROUTINE
Commit	Line	Data
7adcbafe	1	/* Copyright (C) 2006-2022 Free Software Foundation, Inc.
a8b3b0b6 CR	2
	3	This file is part of GCC.
	4
	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
d234d788	7	Software Foundation; either version 3, or (at your option) any later
a8b3b0b6 CR	8	version.
	9
	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
	13	for more details.
	14
	15	You should have received a copy of the GNU General Public License
d234d788 NC	16	along with GCC; see the file COPYING3. If not see
d234d788 NC	17	<http://www.gnu.org/licenses/>. */
a8b3b0b6 CR	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
eca63c6a	23	# define NAMED_INTCST(a,b,c,d)
a8b3b0b6 CR	24	#endif
	25
	26	#ifndef NAMED_REALCST
28d0b595	27	# define NAMED_REALCST(a,b,c,d)
a8b3b0b6 CR	28	#endif
	29
	30	#ifndef NAMED_CMPXCST
28d0b595	31	# define NAMED_CMPXCST(a,b,c,d)
a8b3b0b6 CR	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
d000aa67 TB	42	#ifndef NAMED_FUNCTION
	43	# define NAMED_FUNCTION(a,b,c,d)
	44	#endif
	45
cadddfdd TB	46	#ifndef NAMED_SUBROUTINE
	47	# define NAMED_SUBROUTINE(a,b,c,d)
	48	#endif
	49
a8b3b0b6 CR	50	/* The arguments to NAMED_*CST are:
	51	-- an internal name
	52	-- the symbol name in the module, as seen by Fortran code
e53b6e56	53	-- the value it has, for use in trans-types.cc
eca63c6a	54	-- the standard that supports this type */
a8b3b0b6	55
eca63c6a	56	NAMED_INTCST (ISOCBINDING_INT, "c_int", gfc_c_int_kind, GFC_STD_F2003)
a8b3b0b6	57	NAMED_INTCST (ISOCBINDING_SHORT, "c_short", \
eca63c6a	58	get_int_kind_from_node (short_integer_type_node), GFC_STD_F2003)
a8b3b0b6	59	NAMED_INTCST (ISOCBINDING_LONG, "c_long", \
eca63c6a	60	get_int_kind_from_node (long_integer_type_node), GFC_STD_F2003)
a8b3b0b6	61	NAMED_INTCST (ISOCBINDING_LONG_LONG, "c_long_long", \
eca63c6a	62	get_int_kind_from_node (long_long_integer_type_node), GFC_STD_F2003)
a8b3b0b6 CR	63
a8b3b0b6 CR	64	NAMED_INTCST (ISOCBINDING_INTMAX_T, "c_intmax_t", \
54f806c7	65	get_int_kind_from_name (INTMAX_TYPE), GFC_STD_F2003)
a8b3b0b6	66	NAMED_INTCST (ISOCBINDING_INTPTR_T, "c_intptr_t", \
e0a6661b	67	get_int_kind_from_name (INTPTR_TYPE), GFC_STD_F2003)
a8130612	68	NAMED_INTCST (ISOCBINDING_PTRDIFF_T, "c_ptrdiff_t", \
286f737c	69	get_int_kind_from_name (PTRDIFF_TYPE), GFC_STD_F2018)
a8b3b0b6	70	NAMED_INTCST (ISOCBINDING_SIZE_T, "c_size_t", \
eca63c6a	71	gfc_index_integer_kind, GFC_STD_F2003)
a8b3b0b6	72	NAMED_INTCST (ISOCBINDING_SIGNED_CHAR, "c_signed_char", \
eca63c6a SL	73	get_int_kind_from_node (signed_char_type_node), GFC_STD_F2003)
eca63c6a SL	74
e0a6661b FXC	75	NAMED_INTCST (ISOCBINDING_INT8_T, "c_int8_t", \
	76	get_int_kind_from_name (INT8_TYPE), GFC_STD_F2003)
	77	NAMED_INTCST (ISOCBINDING_INT16_T, "c_int16_t", \
	78	get_int_kind_from_name (INT16_TYPE), GFC_STD_F2003)
	79	NAMED_INTCST (ISOCBINDING_INT32_T, "c_int32_t", \
	80	get_int_kind_from_name (INT32_TYPE), GFC_STD_F2003)
	81	NAMED_INTCST (ISOCBINDING_INT64_T, "c_int64_t", \
	82	get_int_kind_from_name (INT64_TYPE), GFC_STD_F2003)
eca63c6a	83	/* GNU Extension. */
e0a6661b FXC	84	NAMED_INTCST (ISOCBINDING_INT128_T, "c_int128_t", \
e0a6661b FXC	85	get_int_kind_from_width (128), GFC_STD_GNU)
a8b3b0b6 CR	86
a8b3b0b6 CR	87	NAMED_INTCST (ISOCBINDING_INT_LEAST8_T, "c_int_least8_t", \
e0a6661b	88	get_int_kind_from_name (INT_LEAST8_TYPE), GFC_STD_F2003)
a8b3b0b6	89	NAMED_INTCST (ISOCBINDING_INT_LEAST16_T, "c_int_least16_t", \
e0a6661b	90	get_int_kind_from_name (INT_LEAST16_TYPE), GFC_STD_F2003)
a8b3b0b6	91	NAMED_INTCST (ISOCBINDING_INT_LEAST32_T, "c_int_least32_t", \
e0a6661b	92	get_int_kind_from_name (INT_LEAST32_TYPE), GFC_STD_F2003)
a8b3b0b6	93	NAMED_INTCST (ISOCBINDING_INT_LEAST64_T, "c_int_least64_t", \
e0a6661b	94	get_int_kind_from_name (INT_LEAST64_TYPE), GFC_STD_F2003)
eca63c6a SL	95	/* GNU Extension. */
	96	NAMED_INTCST (ISOCBINDING_INT_LEAST128_T, "c_int_least128_t", \
	97	get_int_kind_from_minimal_width (128), GFC_STD_GNU)
a8b3b0b6	98
e0a6661b FXC	99	NAMED_INTCST (ISOCBINDING_INT_FAST8_T, "c_int_fast8_t", \
	100	get_int_kind_from_name (INT_FAST8_TYPE), GFC_STD_F2003)
	101	NAMED_INTCST (ISOCBINDING_INT_FAST16_T, "c_int_fast16_t", \
	102	get_int_kind_from_name (INT_FAST16_TYPE), GFC_STD_F2003)
	103	NAMED_INTCST (ISOCBINDING_INT_FAST32_T, "c_int_fast32_t", \
	104	get_int_kind_from_name (INT_FAST32_TYPE), GFC_STD_F2003)
	105	NAMED_INTCST (ISOCBINDING_INT_FAST64_T, "c_int_fast64_t", \
	106	get_int_kind_from_name (INT_FAST64_TYPE), GFC_STD_F2003)
eca63c6a	107	/* GNU Extension. */
9e0667cd TB	108	NAMED_INTCST (ISOCBINDING_INT_FAST128_T, "c_int_fast128_t",
9e0667cd TB	109	get_int_kind_from_width (128), GFC_STD_GNU)
a8b3b0b6 CR	110
a8b3b0b6 CR	111	NAMED_REALCST (ISOCBINDING_FLOAT, "c_float", \
28d0b595	112	get_real_kind_from_node (float_type_node), GFC_STD_F2003)
a8b3b0b6	113	NAMED_REALCST (ISOCBINDING_DOUBLE, "c_double", \
28d0b595	114	get_real_kind_from_node (double_type_node), GFC_STD_F2003)
a8b3b0b6	115	NAMED_REALCST (ISOCBINDING_LONG_DOUBLE, "c_long_double", \
28d0b595	116	get_real_kind_from_node (long_double_type_node), GFC_STD_F2003)
58340a7c SL	117
58340a7c SL	118	/* GNU Extension. Note that the equivalence here is specifically to
00b1324f	119	the IEEE 128-bit type _Float128; if that does not map onto a type
58340a7c SL	120	otherwise supported by the Fortran front end, get_real_kind_from_node
58340a7c SL	121	will reject it as unsupported. */
28d0b595	122	NAMED_REALCST (ISOCBINDING_FLOAT128, "c_float128", \
58340a7c SL	123	(float128_type_node == NULL_TREE \
58340a7c SL	124	? -4 : get_real_kind_from_node (float128_type_node)), \
28d0b595	125	GFC_STD_GNU)
a8b3b0b6	126	NAMED_CMPXCST (ISOCBINDING_FLOAT_COMPLEX, "c_float_complex", \
28d0b595	127	get_real_kind_from_node (float_type_node), GFC_STD_F2003)
a8b3b0b6	128	NAMED_CMPXCST (ISOCBINDING_DOUBLE_COMPLEX, "c_double_complex", \
28d0b595	129	get_real_kind_from_node (double_type_node), GFC_STD_F2003)
a8b3b0b6	130	NAMED_CMPXCST (ISOCBINDING_LONG_DOUBLE_COMPLEX, "c_long_double_complex", \
28d0b595	131	get_real_kind_from_node (long_double_type_node), GFC_STD_F2003)
58340a7c SL	132
58340a7c SL	133	/* GNU Extension. Similar issues to c_float128 above. */
28d0b595	134	NAMED_CMPXCST (ISOCBINDING_FLOAT128_COMPLEX, "c_float128_complex", \
58340a7c SL	135	(float128_type_node == NULL_TREE \
58340a7c SL	136	? -4 : get_real_kind_from_node (float128_type_node)), \
28d0b595	137	GFC_STD_GNU)
a8b3b0b6 CR	138
	139	NAMED_LOGCST (ISOCBINDING_BOOL, "c_bool", \
	140	get_int_kind_from_width (BOOL_TYPE_SIZE))
	141
	142	NAMED_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. */
	149	NAMED_CHARCST (ISOCBINDING_NULL_CHAR, "c_null_char", \
	150	lang_hooks.to_target_charset ('\0'))
	151	NAMED_CHARCST (ISOCBINDING_ALERT, "c_alert", \
	152	lang_hooks.to_target_charset ('\a'))
	153	NAMED_CHARCST (ISOCBINDING_BACKSPACE, "c_backspace", \
	154	lang_hooks.to_target_charset ('\b'))
	155	NAMED_CHARCST (ISOCBINDING_FORM_FEED, "c_form_feed", \
	156	lang_hooks.to_target_charset ('\f'))
	157	NAMED_CHARCST (ISOCBINDING_NEW_LINE, "c_new_line", \
	158	lang_hooks.to_target_charset ('\n'))
	159	NAMED_CHARCST (ISOCBINDING_CARRIAGE_RETURN, "c_carriage_return", \
	160	lang_hooks.to_target_charset ('\r'))
	161	NAMED_CHARCST (ISOCBINDING_HORIZONTAL_TAB, "c_horizontal_tab", \
	162	lang_hooks.to_target_charset ('\t'))
	163	NAMED_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
	170	DERIVED_TYPE (ISOCBINDING_PTR, "c_ptr", \
	171	get_int_kind_from_node (ptr_type_node))
	172	DERIVED_TYPE (ISOCBINDING_NULL_PTR, "c_null_ptr", \
	173	get_int_kind_from_node (ptr_type_node))
	174	DERIVED_TYPE (ISOCBINDING_FUNPTR, "c_funptr", \
	175	get_int_kind_from_node (ptr_type_node))
	176	DERIVED_TYPE (ISOCBINDING_NULL_FUNPTR, "c_null_funptr", \
	177	get_int_kind_from_node (ptr_type_node))
	178
cadddfdd	179	/* The arguments to NAMED_FUNCTIONS and NAMED_SUBROUTINES are:
d000aa67 TB	180	-- the ISYM
	181	-- the symbol name in the module, as seen by Fortran code
	182	-- the Fortran standard */
	183
cadddfdd TB	184	NAMED_SUBROUTINE (ISOCBINDING_F_POINTER, "c_f_pointer",
	185	GFC_ISYM_C_F_POINTER, GFC_STD_F2003)
	186	NAMED_SUBROUTINE (ISOCBINDING_F_PROCPOINTER, "c_f_procpointer",
	187	GFC_ISYM_C_F_PROCPOINTER, GFC_STD_F2003)
	188
	189	NAMED_FUNCTION (ISOCBINDING_ASSOCIATED, "c_associated",
	190	GFC_ISYM_C_ASSOCIATED, GFC_STD_F2003)
	191	NAMED_FUNCTION (ISOCBINDING_FUNLOC, "c_funloc",
	192	GFC_ISYM_C_FUNLOC, GFC_STD_F2003)
	193	NAMED_FUNCTION (ISOCBINDING_LOC, "c_loc",
	194	GFC_ISYM_C_LOC, GFC_STD_F2003)
	195
d000aa67 TB	196	NAMED_FUNCTION (ISOCBINDING_C_SIZEOF, "c_sizeof", \
	197	GFC_ISYM_C_SIZEOF, GFC_STD_F2008)
	198
a8b3b0b6 CR	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
d000aa67	206	#undef NAMED_FUNCTION
cadddfdd	207	#undef NAMED_SUBROUTINE