Lines Matching defs:cptr
8777 gfc_symbol *cptr; /* Pointer symbol. */
8797 m = gfc_match_symbol (&cptr, 0);
8804 if (!gfc_add_cray_pointer (&cptr->attr, &var_locus))
8807 gfc_set_sym_referenced (cptr);
8809 if (cptr->ts.type == BT_UNKNOWN) /* Override the type, if necessary. */
8811 cptr->ts.type = BT_INTEGER;
8812 cptr->ts.kind = gfc_index_integer_kind;
8814 else if (cptr->ts.type != BT_INTEGER)
8819 else if (cptr->ts.kind < gfc_index_integer_kind)
8822 cptr->ts.kind, gfc_index_integer_kind);
8885 cpte->cp_pointer = cptr;