Searched refs:newupb (Results 1 – 1 of 1) sorted by relevance
| /dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/ |
| H A D | ast.c | 2075 int newlwb, newupb, newextnt; in mk_mem_ptr_shape() local
2118 newupb = mk_id(sdsc); in mk_mem_ptr_shape()
2119 newupb = mk_member(parent, newupb, A_DTYPEG(newupb)); in mk_mem_ptr_shape()
2124 newupb = mk_subscr(newupb, subs, 1, astb.bnd.dtype); in mk_mem_ptr_shape()
2125 newupb = mk_binop(OP_SUB, newupb, mk_isz_cval(1, A_DTYPEG(extnt)), in mk_mem_ptr_shape()
2127 newupb = mk_binop(OP_ADD, newlwb, newupb, A_DTYPEG(extnt)); in mk_mem_ptr_shape()
2130 upbds[i] = newupb; in mk_mem_ptr_shape()
|