Home | History | Annotate | Download | only in fortran

Lines Matching defs:sym2

6721   gfc_symbol *sym, *sym2;
6754 	  sym2 = expr2->symtree->n.sym;
6755 	  as = (sym2->ts.type == BT_CLASS
6756 		&& CLASS_DATA (sym2)) ? CLASS_DATA (sym2)->as : sym2->as;
6768       if (expr2->ts.type == BT_CLASS && CLASS_DATA (sym2))
6775 	  CLASS_DATA (sym)->attr.allocatable = CLASS_DATA (sym2)->attr.allocatable;
6776 	  CLASS_DATA (sym)->attr.pointer = CLASS_DATA (sym2)->attr.pointer;
6777 	  CLASS_DATA (sym)->attr.target = CLASS_DATA (sym2)->attr.target;
6782 	  sym->ts = sym2->ts;
6783 	  sym->as = gfc_copy_array_spec (sym2->as);
6788 	  sym->attr.class_ok = sym2->attr.class_ok;
6789 	  sym->attr.allocatable = sym2->attr.allocatable;
6790 	  sym->attr.pointer = sym2->attr.pointer;
6791 	  sym->attr.target = sym2->attr.target;