541 mk_forall_sptr(int forall_ast, int subscr_ast, int *subscr, int elem_dty)  in mk_forall_sptr()  argument
556     if (A_TYPEG(subscr_ast) == A_MEM) {  in mk_forall_sptr()
557       subscr_ast = A_PARENTG(subscr_ast);  in mk_forall_sptr()
558     } else if (A_TYPEG(subscr_ast) == A_SUBSCR) {  in mk_forall_sptr()
564       lop = A_LOPG(subscr_ast);  in mk_forall_sptr()
571         interr("mk_forall_sptr: subscript has no member/id", subscr_ast, 3);  in mk_forall_sptr()
575       asd = A_ASDG(subscr_ast);  in mk_forall_sptr()
760       subscr_ast = A_LOPG(subscr_ast);  in mk_forall_sptr()
762       interr("mk_forall_sptr: not member or subscript", subscr_ast, 3);  in mk_forall_sptr()
764   } while (A_TYPEG(subscr_ast) != A_ID);  in mk_forall_sptr()
801 get_forall_subscr(int forall_ast, int subscr_ast, int *subscr, int elem_dty)  in get_forall_subscr()  argument
816     if (A_TYPEG(subscr_ast) == A_MEM) {  in get_forall_subscr()
817       subscr_ast = A_PARENTG(subscr_ast);  in get_forall_subscr()
818     } else if (A_TYPEG(subscr_ast) == A_SUBSCR) {  in get_forall_subscr()
824       lop = A_LOPG(subscr_ast);  in get_forall_subscr()
831         interr("get_forall_subscr: subscript has no member/id", subscr_ast, 3);  in get_forall_subscr()
835       asd = A_ASDG(subscr_ast);  in get_forall_subscr()
1020       subscr_ast = A_LOPG(subscr_ast);  in get_forall_subscr()
1022       interr("get_forall_subscr: not member or subscript", subscr_ast, 3);  in get_forall_subscr()
1024   } while (A_TYPEG(subscr_ast) != A_ID);  in get_forall_subscr()
1054 get_temp_forall(int forall_ast, int subscr_ast, int alloc_stmt,  in get_temp_forall()  argument
1069     sptr = mk_forall_sptr(forall_ast, subscr_ast, subscr, dty);  in get_temp_forall()
1071     sptr = mk_forall_sptr(forall_ast, subscr_ast, subscr,  in get_temp_forall()