diff options
Diffstat (limited to 'gcc/fortran/iso-c-binding.def')
| -rw-r--r-- | gcc/fortran/iso-c-binding.def | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/iso-c-binding.def b/gcc/fortran/iso-c-binding.def index c3f87e9..472e7ae 100644 --- a/gcc/fortran/iso-c-binding.def +++ b/gcc/fortran/iso-c-binding.def @@ -115,8 +115,8 @@ NAMED_REALCST (ISOCBINDING_DOUBLE, "c_double", \ NAMED_REALCST (ISOCBINDING_LONG_DOUBLE, "c_long_double", \ get_real_kind_from_node (long_double_type_node), GFC_STD_F2003) NAMED_REALCST (ISOCBINDING_FLOAT128, "c_float128", \ - float128_type_node == NULL_TREE \ - ? -4 : get_real_kind_from_node (float128_type_node), \ + gfc_float128_type_node == NULL_TREE \ + ? -4 : get_real_kind_from_node (gfc_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) @@ -125,8 +125,8 @@ NAMED_CMPXCST (ISOCBINDING_DOUBLE_COMPLEX, "c_double_complex", \ NAMED_CMPXCST (ISOCBINDING_LONG_DOUBLE_COMPLEX, "c_long_double_complex", \ get_real_kind_from_node (long_double_type_node), GFC_STD_F2003) NAMED_CMPXCST (ISOCBINDING_FLOAT128_COMPLEX, "c_float128_complex", \ - float128_type_node == NULL_TREE \ - ? -4 : get_real_kind_from_node (float128_type_node), \ + gfc_float128_type_node == NULL_TREE \ + ? -4 : get_real_kind_from_node (gfc_float128_type_node), \ GFC_STD_GNU) NAMED_LOGCST (ISOCBINDING_BOOL, "c_bool", \ |