Lines Matching refs:class_ts

619 			   gfc_typespec class_ts, tree vptr, bool optional,  in gfc_conv_derived_to_class()  argument
632 tmp = gfc_typenode_for_spec (&class_ts); in gfc_conv_derived_to_class()
688 if (class_ts.u.derived->components->as) in gfc_conv_derived_to_class()
746 if (e->rank != class_ts.u.derived->components->as->rank) in gfc_conv_derived_to_class()
748 gcc_assert (class_ts.u.derived->components->as->type in gfc_conv_derived_to_class()
778 if (class_ts.u.derived->components->ts.type == BT_DERIVED in gfc_conv_derived_to_class()
779 && class_ts.u.derived->components->ts.u.derived in gfc_conv_derived_to_class()
824 gfc_typespec class_ts, bool optional) in class_scalar_coarray_to_class() argument
857 var = gfc_typenode_for_spec (&class_ts); in class_scalar_coarray_to_class()
897 gfc_typespec class_ts) in gfc_conv_intrinsic_to_class() argument
908 tmp = gfc_typenode_for_spec (&class_ts); in gfc_conv_intrinsic_to_class()
937 if (class_ts.u.derived->components->as in gfc_conv_intrinsic_to_class()
938 && class_ts.u.derived->components->as->type == AS_ASSUMED_RANK) in gfc_conv_intrinsic_to_class()
964 if (class_ts.u.derived->components->as->rank != e->rank) in gfc_conv_intrinsic_to_class()
975 gcc_assert (class_ts.type == BT_CLASS); in gfc_conv_intrinsic_to_class()
976 if (class_ts.u.derived->components->ts.type == BT_DERIVED in gfc_conv_intrinsic_to_class()
977 && class_ts.u.derived->components->ts.u.derived in gfc_conv_intrinsic_to_class()
1025 else if (class_ts.type == BT_CLASS in gfc_conv_intrinsic_to_class()
1026 && class_ts.u.derived->components in gfc_conv_intrinsic_to_class()
1027 && class_ts.u.derived->components->ts.u in gfc_conv_intrinsic_to_class()
1052 gfc_conv_class_to_class (gfc_se *parmse, gfc_expr *e, gfc_typespec class_ts, in gfc_conv_class_to_class() argument
1082 && (!class_ts.u.derived->components->as in gfc_conv_class_to_class()
1083 || class_ts.u.derived->components->as->rank != -1)) in gfc_conv_class_to_class()
1089 || (class_ts.u.derived->components->as in gfc_conv_class_to_class()
1090 && class_ts.u.derived->components->as->type == AS_ASSUMED_RANK))) in gfc_conv_class_to_class()
1097 tmp = gfc_typenode_for_spec (&class_ts); in gfc_conv_class_to_class()
1102 if (class_ts.u.derived->components->as in gfc_conv_class_to_class()
1103 && e->rank != class_ts.u.derived->components->as->rank) in gfc_conv_class_to_class()
1134 if (class_ts.u.derived->components->as in gfc_conv_class_to_class()
1135 && e->rank != class_ts.u.derived->components->as->rank) in gfc_conv_class_to_class()
1209 if (class_ts.type == BT_CLASS in gfc_conv_class_to_class()
1210 && class_ts.u.derived->components in gfc_conv_class_to_class()
1211 && class_ts.u.derived->components->ts.u in gfc_conv_class_to_class()