/netbsd-current/external/gpl3/gcc.old/dist/gcc/fortran/ |
H A D | trans-stmt.c | 314 size = gfc_create_var (gfc_array_index_type, NULL); 315 data = gfc_create_var (pvoid_type_node, NULL); 946 stat = gfc_create_var (integer_type_node, "stat"); 953 lock_acquired = gfc_create_var (integer_type_node, "acquired"); 1144 stat = gfc_create_var (integer_type_node, "stat"); 1296 tree tmp_stat = gfc_create_var (integer_type_node, "stat"); 1362 tree tmp_stat = gfc_create_var (integer_type_node, "stat"); 1797 tmp = gfc_create_var (TREE_TYPE (TREE_TYPE (desc)), "class"); 2114 ctree = gfc_create_var (dtmp, "class"); 2341 saved_dovar = gfc_create_var (typ [all...] |
H A D | trans-intrinsic.c | 310 var = gfc_create_var (type, "str"); 998 res = gfc_create_var (integer_type_node, NULL); 1095 var = gfc_create_var (gfc_get_caf_vector_type (ar->dimen), "vector"); 1238 tmp = gfc_create_var (gfc_get_caf_reference_type (), "caf_ref"); 1729 res_var = gfc_create_var (type, "caf_res"); 1822 res_var = gfc_create_var (type, "caf_res"); 2497 m = gfc_create_var (type, NULL); 2498 ml = gfc_create_var (type, NULL); 2499 loop_var = gfc_create_var (integer_type_node, NULL); 2500 min_var = gfc_create_var (integer_type_nod [all...] |
H A D | trans-io.c | 712 tree tmpvar = gfc_create_var (TREE_TYPE (TREE_TYPE (p->field)), 1052 var = gfc_create_var (st_parameter[IOPARM_ptype_open].type, "open_parm"); 1172 var = gfc_create_var (st_parameter[IOPARM_ptype_close].type, "close_parm"); 1227 var = gfc_create_var (st_parameter[IOPARM_ptype_filepos].type, 1313 var = gfc_create_var (st_parameter[IOPARM_ptype_inquire].type, 1510 var = gfc_create_var (st_parameter[IOPARM_ptype_wait].type, 1840 var = gfc_create_var (st_parameter[IOPARM_ptype_dt].type, "dt_parm");
|
H A D | trans-expr.c | 73 desc = gfc_create_var (type, "desc"); 79 tmp = gfc_create_var (TREE_TYPE (scalar), "scalar"); 633 var = gfc_create_var (tmp, "class"); 858 var = gfc_create_var (var, "class"); 909 var = gfc_create_var (tmp, "class"); 1098 var = gfc_create_var (tmp, "class"); 1407 index = gfc_create_var (gfc_array_index_type, "S"); 1876 var = gfc_create_var (TREE_TYPE (se->expr), NULL); 3564 var = gfc_create_var (tmp, "str"); 3570 var = gfc_create_var (typ [all...] |
H A D | trans.c | 96 gfc_create_var (tree type, const char *prefix) function 120 var = gfc_create_var (TREE_TYPE (expr), NULL); 570 tmpvar = gfc_create_var (logical_type_node, "print_warning"); 642 res = gfc_create_var (prvoid_type_node, NULL); 1710 res = gfc_create_var (type, NULL);
|
H A D | trans-openmp.c | 449 tree index = gfc_create_var (gfc_array_index_type, "S"); 646 ptr = gfc_create_var (pvoid_type_node, NULL); 754 ptr = gfc_create_var (pvoid_type_node, NULL); 877 ptr = gfc_create_var (pvoid_type_node, NULL); 999 tree desta, srca, index = gfc_create_var (gfc_array_index_type, "S"); 1111 ptr = gfc_create_var (pvoid_type_node, NULL); 2595 = gfc_create_var (gfc_array_index_type, NULL); 2634 tree var = gfc_create_var (gfc_array_index_type, 3920 tree accum = gfc_create_var (TREE_TYPE (rse.expr), NULL); 4238 count = gfc_create_var (typ [all...] |
H A D | trans-array.c | 1075 tmp = gfc_create_var (tmp, "A"); 1105 packed = gfc_create_var (build_pointer_type (tmp), "data"); 1475 desc = gfc_create_var (type, "atmp"); 1989 shadow_loopvar = gfc_create_var (type, "shadow_loopvar"); 2076 tmp = gfc_create_var (tmptype, "data"); 2665 first_len_val = gfc_create_var (gfc_charlen_type_node, "len"); 4096 loop->loopvar[n] = gfc_create_var (gfc_array_index_type, "S"); 4311 loop->loopvar[n] = gfc_create_var (gfc_array_index_type, "Q"); 5882 var = gfc_create_var (TREE_TYPE (size), "size"); 6069 var_overflow = gfc_create_var (integer_type_nod [all...] |
H A D | trans.h | 478 tree gfc_create_var (tree, const char *);
|
H A D | trans-common.c | 353 decl = gfc_create_var (union_type, "equiv");
|
H A D | trans-decl.c | 4449 gfc_desc = gfc_create_var (TREE_TYPE (CFI_desc), "gfc_desc"); 4451 gfc_desc_ptr = gfc_create_var (tmp, "gfc_desc_ptr"); 4452 CFI_desc_ptr = gfc_create_var (pvoid_type_node, "CFI_desc_ptr"); 6823 recurcheckvar = gfc_create_var (logical_type_node, "is_recursive");
|
/netbsd-current/external/gpl3/gcc/dist/gcc/fortran/ |
H A D | trans-stmt.cc | 321 size = gfc_create_var (gfc_array_index_type, NULL); 322 data = gfc_create_var (pvoid_type_node, NULL); 980 stat = gfc_create_var (integer_type_node, "stat"); 987 lock_acquired = gfc_create_var (integer_type_node, "acquired"); 1178 stat = gfc_create_var (integer_type_node, "stat"); 1332 tree tmp_stat = gfc_create_var (integer_type_node, "stat"); 1398 tree tmp_stat = gfc_create_var (integer_type_node, "stat"); 1834 tmp = gfc_create_var (TREE_TYPE (TREE_TYPE (desc)), "class"); 2152 ctree = gfc_create_var (dtmp, "class"); 2379 saved_dovar = gfc_create_var (typ [all...] |
H A D | trans-intrinsic.cc | 315 var = gfc_create_var (type, "str"); 1006 res = gfc_create_var (integer_type_node, NULL); 1103 var = gfc_create_var (gfc_get_caf_vector_type (ar->dimen), "vector"); 1246 tmp = gfc_create_var (gfc_get_caf_reference_type (), "caf_ref"); 1737 res_var = gfc_create_var (type, "caf_res"); 1830 res_var = gfc_create_var (type, "caf_res"); 2505 m = gfc_create_var (type, NULL); 2506 ml = gfc_create_var (type, NULL); 2507 loop_var = gfc_create_var (integer_type_node, NULL); 2508 min_var = gfc_create_var (integer_type_nod [all...] |
H A D | trans-io.cc | 712 tree tmpvar = gfc_create_var (TREE_TYPE (TREE_TYPE (p->field)), 1078 var = gfc_create_var (st_parameter[IOPARM_ptype_open].type, "open_parm"); 1198 var = gfc_create_var (st_parameter[IOPARM_ptype_close].type, "close_parm"); 1253 var = gfc_create_var (st_parameter[IOPARM_ptype_filepos].type, 1339 var = gfc_create_var (st_parameter[IOPARM_ptype_inquire].type, 1536 var = gfc_create_var (st_parameter[IOPARM_ptype_wait].type, 1865 var = gfc_create_var (st_parameter[IOPARM_ptype_dt].type, "dt_parm");
|
H A D | trans-expr.cc | 113 desc = gfc_create_var (type, "desc"); 119 tmp = gfc_create_var (TREE_TYPE (scalar), "scalar"); 716 var = gfc_create_var (tmp, "class"); 836 *derived_array = gfc_create_var (TREE_TYPE (parmse->expr), 952 var = gfc_create_var (var, "class"); 1003 var = gfc_create_var (tmp, "class"); 1192 var = gfc_create_var (tmp, "class"); 1501 index = gfc_create_var (gfc_array_index_type, "S"); 1970 var = gfc_create_var (TREE_TYPE (se->expr), NULL); 3666 var = gfc_create_var (tm [all...] |
H A D | trans.cc | 140 gfc_create_var (tree type, const char *prefix) function 164 var = gfc_create_var (TREE_TYPE (expr), NULL); 644 tmpvar = gfc_create_var (boolean_type_node, "print_warning"); 715 res = gfc_create_var (prvoid_type_node, NULL); 1783 res = gfc_create_var (type, NULL);
|
H A D | trans-array.cc | 1143 tmp = gfc_create_var (tmp, "A"); 1173 packed = gfc_create_var (build_pointer_type (tmp), "data"); 1543 desc = gfc_create_var (type, "atmp"); 1562 tmp = gfc_create_var (TREE_TYPE (class_expr), "ctmp"); 2085 shadow_loopvar = gfc_create_var (type, "shadow_loopvar"); 2172 tmp = gfc_create_var (tmptype, "data"); 2761 first_len_val = gfc_create_var (gfc_charlen_type_node, "len"); 4200 loop->loopvar[n] = gfc_create_var (gfc_array_index_type, "S"); 4415 loop->loopvar[n] = gfc_create_var (gfc_array_index_type, "Q"); 5992 var = gfc_create_var (TREE_TYP [all...] |
H A D | trans-decl.cc | 6985 tree cond_var = gfc_create_var (boolean_type_node, "do_copyin"); 7009 idx = gfc_create_var (TREE_TYPE (rank), "idx"); 7033 size_var = gfc_create_var (size_type_node, "size"); 7066 idx = gfc_create_var (size_type_node, "arrayidx"); 7068 tree shift = gfc_create_var (size_type_node, "shift"); 7069 tree tmpidx = gfc_create_var (size_type_node, "tmpidx"); 7074 tree dim = gfc_create_var (TREE_TYPE (rank), "dim"); 7180 idx = gfc_create_var (TREE_TYPE (rank), "idx"); 7307 idx = gfc_create_var (size_type_node, "arrayidx"); 7309 tree shift = gfc_create_var (size_type_nod [all...] |
H A D | trans.h | 478 tree gfc_create_var (tree, const char *);
|
H A D | trans-openmp.cc | 538 tree index = gfc_create_var (gfc_array_index_type, "S"); 748 ptr = gfc_create_var (pvoid_type_node, NULL); 939 ptr = gfc_create_var (pvoid_type_node, NULL); 1062 ptr = gfc_create_var (pvoid_type_node, NULL); 1184 tree desta, srca, index = gfc_create_var (gfc_array_index_type, "S"); 1296 ptr = gfc_create_var (pvoid_type_node, NULL); 3229 = gfc_create_var (gfc_array_index_type, NULL); 3268 tree var = gfc_create_var (gfc_array_index_type, 4804 tree accum = gfc_create_var (TREE_TYPE (rse.expr), NULL); 5189 count = gfc_create_var (typ [all...] |
H A D | trans-common.cc | 360 decl = gfc_create_var (union_type, "equiv");
|