Home
last modified time | relevance | path

Searched refs:GFC_DESCRIPTOR_TYPE (Results 1 – 8 of 8) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/libgfortran/caf/
H A Dsingle.c750 if (GFC_DESCRIPTOR_TYPE (dest) == GFC_DESCRIPTOR_TYPE (src) in _gfortran_caf_get()
755 if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER && dst_size > src_size) in _gfortran_caf_get()
765 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER && dst_kind == 1) in _gfortran_caf_get()
768 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER) in _gfortran_caf_get()
772 convert_type (GFC_DESCRIPTOR_DATA (dest), GFC_DESCRIPTOR_TYPE (dest), in _gfortran_caf_get()
773 dst_kind, sr, GFC_DESCRIPTOR_TYPE (src), src_kind, stat); in _gfortran_caf_get()
836 if (GFC_DESCRIPTOR_TYPE (dest) == GFC_DESCRIPTOR_TYPE (src) in _gfortran_caf_get()
840 if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER in _gfortran_caf_get()
851 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER && dst_kind == 1) in _gfortran_caf_get()
853 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER) in _gfortran_caf_get()
[all …]
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/caf/
H A Dsingle.c750 if (GFC_DESCRIPTOR_TYPE (dest) == GFC_DESCRIPTOR_TYPE (src) in _gfortran_caf_get()
755 if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER && dst_size > src_size) in _gfortran_caf_get()
765 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER && dst_kind == 1) in _gfortran_caf_get()
768 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER) in _gfortran_caf_get()
772 convert_type (GFC_DESCRIPTOR_DATA (dest), GFC_DESCRIPTOR_TYPE (dest), in _gfortran_caf_get()
773 dst_kind, sr, GFC_DESCRIPTOR_TYPE (src), src_kind, stat); in _gfortran_caf_get()
836 if (GFC_DESCRIPTOR_TYPE (dest) == GFC_DESCRIPTOR_TYPE (src) in _gfortran_caf_get()
840 if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER in _gfortran_caf_get()
851 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER && dst_kind == 1) in _gfortran_caf_get()
853 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER) in _gfortran_caf_get()
[all …]
/netbsd-src/external/gpl3/gcc/dist/libgfortran/runtime/
H A DISO_Fortran_binding.c50 GFC_DESCRIPTOR_TYPE (d) = (signed char)(s->type & CFI_type_mask); in cfi_desc_to_gfc_desc()
54 if (GFC_DESCRIPTOR_TYPE (d) == BT_CHARACTER) in cfi_desc_to_gfc_desc()
55 GFC_DESCRIPTOR_TYPE (d) = BT_DERIVED; in cfi_desc_to_gfc_desc()
56 else if (GFC_DESCRIPTOR_TYPE (d) == BT_DERIVED) in cfi_desc_to_gfc_desc()
57 GFC_DESCRIPTOR_TYPE (d) = BT_CHARACTER; in cfi_desc_to_gfc_desc()
61 else if (GFC_DESCRIPTOR_TYPE (d) != BT_DERIVED) in cfi_desc_to_gfc_desc()
121 if (GFC_DESCRIPTOR_TYPE (s) == BT_CHARACTER) in gfc_desc_to_cfi_desc()
123 else if (GFC_DESCRIPTOR_TYPE (s) == BT_DERIVED) in gfc_desc_to_cfi_desc()
126 d->type = (CFI_type_t)GFC_DESCRIPTOR_TYPE (s); in gfc_desc_to_cfi_desc()
128 if (GFC_DESCRIPTOR_TYPE (s) != BT_DERIVED) in gfc_desc_to_cfi_desc()
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/runtime/
H A DISO_Fortran_binding.c47 GFC_DESCRIPTOR_TYPE (d) = (signed char)(s->type & CFI_type_mask); in cfi_desc_to_gfc_desc()
51 if (GFC_DESCRIPTOR_TYPE (d) == BT_CHARACTER) in cfi_desc_to_gfc_desc()
52 GFC_DESCRIPTOR_TYPE (d) = BT_DERIVED; in cfi_desc_to_gfc_desc()
53 else if (GFC_DESCRIPTOR_TYPE (d) == BT_DERIVED) in cfi_desc_to_gfc_desc()
54 GFC_DESCRIPTOR_TYPE (d) = BT_CHARACTER; in cfi_desc_to_gfc_desc()
58 else if (GFC_DESCRIPTOR_TYPE (d) != BT_DERIVED) in cfi_desc_to_gfc_desc()
111 if (GFC_DESCRIPTOR_TYPE (s) == BT_CHARACTER) in gfc_desc_to_cfi_desc()
113 else if (GFC_DESCRIPTOR_TYPE (s) == BT_DERIVED) in gfc_desc_to_cfi_desc()
116 d->type = (CFI_type_t)GFC_DESCRIPTOR_TYPE (s); in gfc_desc_to_cfi_desc()
118 if (GFC_DESCRIPTOR_TYPE (s) != BT_DERIVED) in gfc_desc_to_cfi_desc()
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/
H A Dlibgfortran.h408 #define GFC_DESCRIPTOR_TYPE(desc) ((desc)->dtype.type) macro
/netbsd-src/external/gpl3/gcc/dist/libgfortran/
H A Dlibgfortran.h441 #define GFC_DESCRIPTOR_TYPE(desc) ((desc)->dtype.type) macro
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/io/
H A Dtransfer.c2511 iotype = (bt) GFC_DESCRIPTOR_TYPE (desc); in transfer_array_inner()
/netbsd-src/external/gpl3/gcc/dist/libgfortran/io/
H A Dtransfer.c2663 iotype = (bt) GFC_DESCRIPTOR_TYPE (desc); in transfer_array_inner()