gcc/fortran/trans-expr.c

625   tree ctree;
636   ctree =  gfc_class_vptr_get (var);
651   gfc_add_modify (&parmse->pre, ctree,
652 		  fold_convert (TREE_TYPE (ctree), tmp));
655   ctree =  gfc_class_data_get (var);
664       tmp = fold_convert (TREE_TYPE (ctree), parmse->expr);
665       gfc_add_modify (&parmse->pre, ctree, tmp);
672       tmp = fold_convert (TREE_TYPE (ctree), parmse->expr);
677       gfc_add_modify (&parmse->pre, ctree, tmp);
693 	      gfc_add_modify (&parmse->pre, gfc_conv_descriptor_dtype (ctree),
701 	      gfc_conv_descriptor_data_set (&parmse->pre, ctree, parmse->expr);
705 	      tmp = fold_convert (TREE_TYPE (ctree), parmse->expr);
711 	      gfc_add_modify (&parmse->pre, ctree, tmp);
750 	      class_array_data_assign (&block, ctree, parmse->expr, false);
757 						TREE_TYPE (ctree),
759 	      gfc_add_modify (&block, ctree, parmse->expr);
767 	      gfc_conv_descriptor_data_set (&block, ctree, null_pointer_node);
783       ctree = gfc_class_len_get (var);
803       gfc_add_modify (&parmse->pre, ctree, fold_convert (TREE_TYPE (ctree),
826   tree var, ctree, tmp;
860   ctree = gfc_class_vptr_get (var);
861   gfc_add_modify (&block, ctree,
862 		  fold_convert (TREE_TYPE (ctree), gfc_class_vptr_get (tmp)));
864   ctree = gfc_class_data_get (var);
866   gfc_add_modify (&block, ctree, fold_convert (TREE_TYPE (ctree), tmp));
901   tree ctree;
912   ctree = gfc_class_vptr_get (var);
917   gfc_add_modify (&parmse->pre, ctree,
918 		  fold_convert (TREE_TYPE (ctree), tmp));
921   ctree = gfc_class_data_get (var);
927       tmp = fold_convert (TREE_TYPE (ctree), parmse->expr);
928       gfc_add_modify (&parmse->pre, ctree, tmp);
943 				     TREE_TYPE (ctree), tmp);
946 	      tmp = fold_convert (TREE_TYPE (ctree), parmse->expr);
947 	  gfc_add_modify (&parmse->pre, ctree, tmp);
967 				     TREE_TYPE (ctree), parmse->expr);
968 	      gfc_add_modify (&parmse->pre, ctree, tmp);
971 	    gfc_add_modify (&parmse->pre, ctree, parmse->expr);
980       ctree = gfc_class_len_get (var);
1023       gfc_add_modify (&parmse->pre, ctree, fold_convert (TREE_TYPE (ctree), tmp));
1030       ctree = gfc_class_len_get (var);
1031       gfc_add_modify (&parmse->pre, ctree,
1032 		      fold_convert (TREE_TYPE (ctree),
1056   tree ctree;
1101   ctree = gfc_class_data_get (var);
1109 	  gfc_add_modify (&block, gfc_conv_descriptor_dtype (ctree),
1116 	  gfc_conv_descriptor_data_set (&block, ctree, tmp);
1119 	class_array_data_assign (&block, ctree, parmse->expr, false);
1123       if (TREE_TYPE (parmse->expr) != TREE_TYPE (ctree))
1125 					TREE_TYPE (ctree), parmse->expr);
1126       gfc_add_modify (&block, ctree, parmse->expr);
1142 					 gfc_conv_descriptor_data_get (ctree)));
1145 	    class_array_data_assign (&parmse->post, parmse->expr, ctree, true);
1148 	gfc_add_modify (&parmse->post, parmse->expr, ctree);
1152   ctree = gfc_class_vptr_get (var);
1199   gfc_add_modify (&block, ctree,
1200 		  fold_convert (TREE_TYPE (ctree), vptr));
1206 		    fold_convert (TREE_TYPE (vptr), ctree));
1214       ctree = gfc_class_len_get (var);
1224       gfc_add_modify (&parmse->pre, ctree,
1225 		      fold_convert (TREE_TYPE (ctree), tmp));
1232 			  fold_convert (TREE_TYPE (tmp), ctree));