Home
last modified time | relevance | path

Searched refs:fsource (Results 1 – 9 of 9) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Diresolve.cc1951 gfc_expr *fsource ATTRIBUTE_UNUSED, in gfc_resolve_merge()
1957 if (fsource->ts.type == BT_CHARACTER && fsource->ref) in gfc_resolve_merge()
1958 gfc_resolve_substring_charlen (fsource); in gfc_resolve_merge()
H A Dcheck.cc4140 gfc_check_merge (gfc_expr *tsource, gfc_expr *fsource, gfc_expr *mask) in gfc_check_merge() argument
4145 if (gfc_invalid_null_arg (fsource)) in gfc_check_merge()
4148 if (!same_type_check (tsource, 0, fsource, 1)) in gfc_check_merge()
4155 return gfc_check_same_strlen (tsource, fsource, "MERGE intrinsic"); in gfc_check_merge()
H A Dsimplify.cc4903 gfc_simplify_merge (gfc_expr *tsource, gfc_expr *fsource, gfc_expr *mask) in gfc_simplify_merge() argument
4910 result = gfc_copy_expr (mask->value.logical ? tsource : fsource); in gfc_simplify_merge()
4918 || !is_constant_array_expr (tsource) || !is_constant_array_expr (fsource)) in gfc_simplify_merge()
4929 fsource_ctor = gfc_constructor_first (fsource->value.constructor); in gfc_simplify_merge()
H A Dtrans-intrinsic.cc7533 tree fsource; in gfc_conv_intrinsic_merge() local
7547 fsource = args[1]; in gfc_conv_intrinsic_merge()
7558 fsource = args[3]; in gfc_conv_intrinsic_merge()
7567 fold_convert (type, fsource)); in gfc_conv_intrinsic_merge()
H A DChangeLog-20064114 (gfc_check_merge): Check conformance between tsource and fsource
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dcheck.c4129 gfc_check_merge (gfc_expr *tsource, gfc_expr *fsource, gfc_expr *mask) in gfc_check_merge() argument
4134 if (gfc_invalid_null_arg (fsource)) in gfc_check_merge()
4137 if (!same_type_check (tsource, 0, fsource, 1)) in gfc_check_merge()
4144 return gfc_check_same_strlen (tsource, fsource, "MERGE intrinsic"); in gfc_check_merge()
H A Diresolve.c1930 gfc_expr *fsource ATTRIBUTE_UNUSED, in gfc_resolve_merge()
1936 if (fsource->ts.type == BT_CHARACTER && fsource->ref) in gfc_resolve_merge()
1937 gfc_resolve_substring_charlen (fsource); in gfc_resolve_merge()
H A Dsimplify.c4789 gfc_simplify_merge (gfc_expr *tsource, gfc_expr *fsource, gfc_expr *mask) in gfc_simplify_merge() argument
4796 result = gfc_copy_expr (mask->value.logical ? tsource : fsource); in gfc_simplify_merge()
4804 || !is_constant_array_expr (tsource) || !is_constant_array_expr (fsource)) in gfc_simplify_merge()
4815 fsource_ctor = gfc_constructor_first (fsource->value.constructor); in gfc_simplify_merge()
H A Dtrans-intrinsic.c7472 tree fsource; in gfc_conv_intrinsic_merge() local
7486 fsource = args[1]; in gfc_conv_intrinsic_merge()
7497 fsource = args[3]; in gfc_conv_intrinsic_merge()
7506 fold_convert (type, fsource)); in gfc_conv_intrinsic_merge()