Home | History | Annotate | Download | only in fortran

Lines Matching defs:class_expr

1460   tree class_expr = NULL_TREE;
1469       class_expr = build_fold_indirect_ref_loc (input_location, initial);
1471       class_expr = gfc_get_class_from_expr (class_expr);
1472       gcc_assert (class_expr);
1479   if (class_expr == NULL_TREE && GFC_CLASS_TYPE_P (eltype))
1480     class_expr = get_class_info_from_ss (pre, ss, &eltype);
1486   if (class_expr == NULL_TREE)
1494       tmp = gfc_class_vptr_get (class_expr);
1501 				  gfc_class_vtab_size_get (class_expr),
1504       elemsize = gfc_resize_class_size_with_len (pre, class_expr, elemsize);
1580   if (class_expr != NULL_TREE)
1586       tmp = gfc_create_var (TREE_TYPE (class_expr), "ctmp");
1587       gfc_add_modify (pre, tmp, class_expr);
1598       dtype = gfc_conv_descriptor_dtype (gfc_class_data_get (class_expr));
3626   gfc_expr *class_expr;
3647       class_expr = gfc_find_and_cut_at_last_class_ref (expr, false, &ts);
3652       sym = (!class_expr && expr) ? expr->symtree->n.sym : NULL;
3670 	decl = gfc_get_class_from_gfc_expr (class_expr);
4060 	  gfc_expr *class_expr = gfc_find_and_cut_at_last_class_ref (expr);
4062 	  gfc_conv_expr (&tmpse, class_expr);
4065 	  gfc_free_expr (class_expr);
7943 	      gfc_expr *class_expr = gfc_find_and_cut_at_last_class_ref (expr);
7946 	      /* class_expr can be NULL, when no _class ref is in expr.
7948 	      if (class_expr)
7951 		  gfc_conv_expr (&classse, class_expr);
7952 		  gfc_free_expr (class_expr);