Searched refs:shape_block (Results 1 – 3 of 3) sorted by relevance
10183 stmtblock_t shape_block; in fcncall_realloc_result() local10217 gfc_start_block (&shape_block); in fcncall_realloc_result()10234 tmp = gfc_evaluate_now (tmp, &shape_block); in fcncall_realloc_result()10247 gfc_add_modify (&shape_block, zero_cond, tmp); in fcncall_realloc_result()10248 tmp = gfc_finish_block (&shape_block); in fcncall_realloc_result()
10719 stmtblock_t shape_block; in fcncall_realloc_result() local10753 gfc_start_block (&shape_block); in fcncall_realloc_result()10770 tmp = gfc_evaluate_now (tmp, &shape_block); in fcncall_realloc_result()10783 gfc_add_modify (&shape_block, zero_cond, tmp); in fcncall_realloc_result()10784 tmp = gfc_finish_block (&shape_block); in fcncall_realloc_result()