Home
last modified time | relevance | path

Searched refs:caf_type (Results 1 – 6 of 6) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans.cc1431 tree caf_type, caf_decl = pointer; in gfc_deallocate_with_status() local
1433 caf_type = TREE_TYPE (caf_decl); in gfc_deallocate_with_status()
1435 if (GFC_DESCRIPTOR_TYPE_P (caf_type)) in gfc_deallocate_with_status()
1442 gcc_assert (GFC_ARRAY_TYPE_P (caf_type) in gfc_deallocate_with_status()
1443 && GFC_TYPE_ARRAY_CAF_TOKEN (caf_type) in gfc_deallocate_with_status()
1445 token = GFC_TYPE_ARRAY_CAF_TOKEN (caf_type); in gfc_deallocate_with_status()
H A Dtrans-expr.cc7333 tree caf_decl, caf_type; in gfc_conv_procedure_call() local
7337 caf_type = TREE_TYPE (caf_decl); in gfc_conv_procedure_call()
7339 if (GFC_DESCRIPTOR_TYPE_P (caf_type) in gfc_conv_procedure_call()
7340 && (GFC_TYPE_ARRAY_AKIND (caf_type) == GFC_ARRAY_ALLOCATABLE in gfc_conv_procedure_call()
7341 || GFC_TYPE_ARRAY_AKIND (caf_type) == GFC_ARRAY_POINTER)) in gfc_conv_procedure_call()
7348 gcc_assert (GFC_ARRAY_TYPE_P (caf_type) in gfc_conv_procedure_call()
7349 && GFC_TYPE_ARRAY_CAF_TOKEN (caf_type) != NULL_TREE); in gfc_conv_procedure_call()
7350 tmp = GFC_TYPE_ARRAY_CAF_TOKEN (caf_type); in gfc_conv_procedure_call()
7355 if (GFC_DESCRIPTOR_TYPE_P (caf_type) in gfc_conv_procedure_call()
7356 && GFC_TYPE_ARRAY_AKIND (caf_type) == GFC_ARRAY_ALLOCATABLE) in gfc_conv_procedure_call()
[all …]
H A Dtrans-decl.cc2797 tree caf_type; in create_function_arglist() local
2803 caf_type = f->sym->ts.type == BT_CLASS in create_function_arglist()
2824 gcc_assert (GFC_TYPE_ARRAY_CAF_TOKEN (caf_type) == NULL_TREE); in create_function_arglist()
2825 GFC_TYPE_ARRAY_CAF_TOKEN (caf_type) = token; in create_function_arglist()
2851 gcc_assert (GFC_TYPE_ARRAY_CAF_OFFSET (caf_type) == NULL_TREE); in create_function_arglist()
2852 GFC_TYPE_ARRAY_CAF_OFFSET (caf_type) = offset; in create_function_arglist()
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans.c1358 tree caf_type, caf_decl = pointer; in gfc_deallocate_with_status() local
1360 caf_type = TREE_TYPE (caf_decl); in gfc_deallocate_with_status()
1362 if (GFC_DESCRIPTOR_TYPE_P (caf_type)) in gfc_deallocate_with_status()
1369 gcc_assert (GFC_ARRAY_TYPE_P (caf_type) in gfc_deallocate_with_status()
1370 && GFC_TYPE_ARRAY_CAF_TOKEN (caf_type) in gfc_deallocate_with_status()
1372 token = GFC_TYPE_ARRAY_CAF_TOKEN (caf_type); in gfc_deallocate_with_status()
H A Dtrans-expr.c6802 tree caf_decl, caf_type; in gfc_conv_procedure_call() local
6806 caf_type = TREE_TYPE (caf_decl); in gfc_conv_procedure_call()
6808 if (GFC_DESCRIPTOR_TYPE_P (caf_type) in gfc_conv_procedure_call()
6809 && (GFC_TYPE_ARRAY_AKIND (caf_type) == GFC_ARRAY_ALLOCATABLE in gfc_conv_procedure_call()
6810 || GFC_TYPE_ARRAY_AKIND (caf_type) == GFC_ARRAY_POINTER)) in gfc_conv_procedure_call()
6817 gcc_assert (GFC_ARRAY_TYPE_P (caf_type) in gfc_conv_procedure_call()
6818 && GFC_TYPE_ARRAY_CAF_TOKEN (caf_type) != NULL_TREE); in gfc_conv_procedure_call()
6819 tmp = GFC_TYPE_ARRAY_CAF_TOKEN (caf_type); in gfc_conv_procedure_call()
6824 if (GFC_DESCRIPTOR_TYPE_P (caf_type) in gfc_conv_procedure_call()
6825 && GFC_TYPE_ARRAY_AKIND (caf_type) == GFC_ARRAY_ALLOCATABLE) in gfc_conv_procedure_call()
[all …]
H A Dtrans-decl.c2763 tree caf_type; in create_function_arglist() local
2769 caf_type = f->sym->ts.type == BT_CLASS in create_function_arglist()
2790 gcc_assert (GFC_TYPE_ARRAY_CAF_TOKEN (caf_type) == NULL_TREE); in create_function_arglist()
2791 GFC_TYPE_ARRAY_CAF_TOKEN (caf_type) = token; in create_function_arglist()
2817 gcc_assert (GFC_TYPE_ARRAY_CAF_OFFSET (caf_type) == NULL_TREE); in create_function_arglist()
2818 GFC_TYPE_ARRAY_CAF_OFFSET (caf_type) = offset; in create_function_arglist()