Lines Matching refs:dst_kind
468 convert_type (void *dst, int dst_type, int dst_kind, void *src, int src_type,
555 if (dst_kind == 1)
557 else if (dst_kind == 2)
559 else if (dst_kind == 4)
561 else if (dst_kind == 8)
564 else if (dst_kind == 16)
572 if (dst_kind == 1)
574 else if (dst_kind == 2)
576 else if (dst_kind == 4)
578 else if (dst_kind == 8)
581 else if (dst_kind == 16)
589 if (dst_kind == 1)
591 else if (dst_kind == 2)
593 else if (dst_kind == 4)
595 else if (dst_kind == 8)
598 else if (dst_kind == 16)
610 if (dst_kind == 4)
612 else if (dst_kind == 8)
615 else if (dst_kind == 10)
619 else if (dst_kind == 16)
627 if (dst_kind == 4)
629 else if (dst_kind == 8)
632 else if (dst_kind == 10)
636 else if (dst_kind == 16)
644 if (dst_kind == 4)
646 dst_kind == 8)
649 else if (dst_kind == 10)
653 else if (dst_kind == 16)
663 if (dst_kind == 4)
665 else if (dst_kind == 8)
668 else if (dst_kind == 10)
672 else if (dst_kind == 16)
680 if (dst_kind == 4)
682 else if (dst_kind == 8)
685 else if (dst_kind == 10)
689 else if (dst_kind == 16)
697 if (dst_kind == 4)
699 else if (dst_kind == 8)
702 else if (dst_kind == 10)
706 else if (dst_kind == 16)
721 "%d to type %d kind %d\n", src_type, src_kind, dst_type, dst_kind);
734 gfc_descriptor_t *dest, int src_kind, int dst_kind,
751 && dst_kind == src_kind)
757 if (dst_kind == 1)
760 else /* dst_kind == 4. */
765 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER && dst_kind == 1)
773 dst_kind, sr, GFC_DESCRIPTOR_TYPE (src), src_kind, stat);
837 && dst_kind == src_kind)
843 if (dst_kind == 1)
846 else /* dst_kind == 4. */
851 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER && dst_kind == 1)
856 convert_type (dst, GFC_DESCRIPTOR_TYPE (dest), dst_kind,
899 && dst_kind == src_kind)
904 if (dst_kind == 1)
906 else /* dst_kind == 4. */
911 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER && dst_kind == 1)
916 convert_type (dst, GFC_DESCRIPTOR_TYPE (dest), dst_kind,
927 gfc_descriptor_t *src, int dst_kind, int src_kind,
944 && dst_kind == src_kind)
950 if (dst_kind == 1)
952 else /* dst_kind == 4. */
957 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER && dst_kind == 1)
964 convert_type (dst, GFC_DESCRIPTOR_TYPE (dest), dst_kind,
1038 && dst_kind == src_kind)
1045 if (dst_kind == 1)
1048 else /* dst_kind == 4. */
1053 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER && dst_kind == 1)
1058 convert_type (dst, GFC_DESCRIPTOR_TYPE (dest), dst_kind,
1107 && dst_kind == src_kind)
1113 if (dst_kind == 1)
1115 else /* dst_kind == 4. */
1120 else if (GFC_DESCRIPTOR_TYPE (dest) == BT_CHARACTER && dst_kind == 1)
1125 convert_type (dst, GFC_DESCRIPTOR_TYPE (dest), dst_kind,
1139 int dst_kind, int src_kind, bool may_require_tmp)
1148 src, dst_kind, src_kind, may_require_tmp, NULL);
1159 int dst_kind, int src_kind, size_t dst_size, size_t src_size,
1163 if (dst_type == src_type && dst_kind == src_kind)
1169 if (dst_kind == 1)
1171 else /* dst_kind == 4. */
1176 else if (dst_type == BT_CHARACTER && dst_kind == 1)
1183 convert_type (ds, dst_type, dst_kind, sr, src_type, src_kind, stat);
1203 int dst_kind, int src_kind, size_t dst_dim, size_t src_dim,
1229 dst_kind, src_kind, dst_size, ref->item_size, 1, stat);
1233 dst_kind, src_kind, dst_size, ref->item_size, 1, stat);
1245 dst_kind, src_kind, dst_size, ref->item_size, num,
1278 ds, sr, dst_kind, src_kind, dst_dim, 0,
1284 sr + ref->u.c.offset, dst_kind, src_kind, dst_dim, 0, 1,
1291 src, ds, sr, dst_kind, src_kind,
1334 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
1354 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
1381 dst_kind, src_kind, next_dst_dim, src_dim + 1,
1395 dst_kind, src_kind, dst_dim, src_dim + 1, 1,
1413 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
1433 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
1448 NULL, ds, sr, dst_kind, src_kind,
1483 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
1497 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
1514 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
1525 dst_kind, src_kind, dst_dim, src_dim + 1, 1,
1545 int dst_kind, int src_kind,
1713 GFC_DESCRIPTOR_SIZE (dst) = dst_kind;
1888 GFC_DESCRIPTOR_SIZE (dst) = dst_kind;
1996 GFC_DESCRIPTOR_SIZE (dst) = dst_kind;
2018 GFC_DESCRIPTOR_DATA (dst), memptr, dst_kind, src_kind, 0, 0,
2027 int dst_kind, int src_kind, size_t dst_dim, size_t src_dim,
2090 dst_kind, src_kind, ref->item_size, src_size, 1, stat);
2095 dst_kind, src_kind, ref->item_size, src_size, 1, stat);
2108 dst_type, GFC_DESCRIPTOR_TYPE (src), dst_kind,
2113 dst_kind, src_kind, ref->item_size, src_size, num,
2172 dst_kind, src_kind, 0, src_dim, 1, size, stat, dst_type);
2177 ds + ref->u.c.offset, sr, dst_kind, src_kind, 0, src_dim,
2184 (gfc_descriptor_t *)ds, src, ds, sr, dst_kind, src_kind,
2226 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
2247 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
2268 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
2282 dst_kind, src_kind, dst_dim + 1, src_dim, 1,
2299 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
2320 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
2336 src, ds, sr, dst_kind, src_kind,
2371 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
2385 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
2403 dst_kind, src_kind, dst_dim + 1, src_dim + 1,
2415 dst_kind, src_kind, dst_dim + 1, src_dim, 1,
2435 int dst_kind, int src_kind,
2794 memptr, GFC_DESCRIPTOR_DATA (src), dst_kind, src_kind, 0, 0,
2804 caf_reference_t *src_refs, int dst_kind,
2815 dst_kind, src_kind, may_require_tmp, true,
2823 dst_kind, dst_kind, may_require_tmp, true,
Indexes created Tue Oct 06 00:26:07 UTC 2026