| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| check.cc | 4380 gfc_check_null (gfc_expr *mold)
4384 if (mold == NULL)
4387 if (mold->expr_type == EXPR_NULL)
4390 if (!variable_check (mold, 0, true))
4393 attr = gfc_variable_attr (mold, NULL);
4400 gfc_current_intrinsic, &mold->where);
4406 "allocatable MOLD at %L", &mold->where))
4410 if (gfc_is_coindexed (mold))
4414 gfc_current_intrinsic, &mold->where)
[all...] |
| iresolve.cc | 3003 gfc_expr *mold, gfc_expr *size)
3008 if (mold->ts.type == BT_CHARACTER
3009 && !mold->ts.u.cl->length
3010 && gfc_is_constant_expr (mold))
3013 if (mold->expr_type == EXPR_CONSTANT)
3015 len = mold->value.character.length;
3016 mold->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind,
3021 gfc_constructor *c = gfc_constructor_first (mold->value.constructor);
3023 mold->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind,
3028 if (UNLIMITED_POLY (mold))
[all...] |
| simplify.cc | 3112 gfc_simplify_extends_type_of (gfc_expr *a, gfc_expr *mold)
3115 if (is_last_ref_vtab (a) || is_last_ref_vtab (mold))
3118 if (a->ts.type == BT_DERIVED && mold->ts.type == BT_DERIVED)
3120 gfc_type_is_extension_of (mold->ts.u.derived,
3123 if (UNLIMITED_POLY (a) || UNLIMITED_POLY (mold))
3127 || (mold->ts.type == BT_CLASS && !gfc_expr_attr (mold).class_ok))
3131 if ((a->ts.type == BT_CLASS && mold->ts.type == BT_CLASS
3133 (CLASS_DATA (mold)->ts.u.derived,
3137 CLASS_DATA (mold)->ts.u.derived)
[all...] |
| match.cc | 4242 gfc_expr *stat, *errmsg, *tmp, *source, *mold; local
4251 stat = errmsg = source = mold = tmp = NULL;
4546 m = gfc_match (" mold = %e", &tmp);
4551 if (!gfc_notify_std (GFC_STD_F2008, "MOLD tag at %L", &tmp->where))
4557 gfc_error ("Redundant MOLD tag found at %L", &tmp->where);
4564 gfc_error ("MOLD tag at %L conflicts with the typespec at %L",
4569 mold = tmp;
4572 mold->mold = 1;
4588 if (source && mold)
[all...] |
| trans-stmt.cc | 6371 if (code->expr3->expr_type == EXPR_FUNCTION && !code->expr3->mold
6394 if (!code->expr3->mold
6552 : (code->expr3->mold ? E3_MOLD : E3_SOURCE))
6766 // We need to propagate the bounds of the expr3 for source=/mold=.
6853 gfc_trans_same_strlen_check ("ALLOCATE with SOURCE= or MOLD=",
7110 source= or mold= expression. */
7138 if (al_vptr != NULL_TREE && (!code->expr3 || code->expr3->mold))
7152 that for arrays or in mold= cases the pre-evaluation
7198 source= or mold= expression. */
7222 if (code->expr3 && !code->expr3->mold && e3_is != E3_MOLD
[all...] |
| gfortran.h | 2592 /* Mark an expression as being a MOLD argument of ALLOCATE. */
2593 unsigned int mold : 1; member in struct:gfc_expr
|
| resolve.cc | 8324 "SOURCE= or MOLD= specifier"))
8804 if (code->expr3 && code->expr3->mold
8807 /* Default initialization via MOLD (non-polymorphic). */
|
| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| check.cc | 4353 gfc_check_null (gfc_expr *mold)
4357 if (mold == NULL)
4360 if (!variable_check (mold, 0, true))
4363 attr = gfc_variable_attr (mold, NULL);
4370 gfc_current_intrinsic, &mold->where);
4376 "allocatable MOLD at %L", &mold->where))
4380 if (gfc_is_coindexed (mold))
4384 gfc_current_intrinsic, &mold->where);
6126 gfc_calculate_transfer_sizes (gfc_expr *source, gfc_expr *mold, gfc_expr *size
[all...] |
| simplify.cc | 3083 gfc_simplify_extends_type_of (gfc_expr *a, gfc_expr *mold)
3086 if (is_last_ref_vtab (a) || is_last_ref_vtab (mold))
3089 if (a->ts.type == BT_DERIVED && mold->ts.type == BT_DERIVED)
3091 gfc_type_is_extension_of (mold->ts.u.derived,
3094 if (UNLIMITED_POLY (a) || UNLIMITED_POLY (mold))
3098 || (mold->ts.type == BT_CLASS && !gfc_expr_attr (mold).class_ok))
3102 if ((a->ts.type == BT_CLASS && mold->ts.type == BT_CLASS
3104 (mold->ts.u.derived->components->ts.u.derived,
3108 mold->ts.u.derived->components->ts.u.derived)
[all...] |
| iresolve.cc | 2991 gfc_expr *mold, gfc_expr *size)
2996 if (mold->ts.type == BT_CHARACTER
2997 && !mold->ts.u.cl->length
2998 && gfc_is_constant_expr (mold))
3001 if (mold->expr_type == EXPR_CONSTANT)
3003 len = mold->value.character.length;
3004 mold->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind,
3009 gfc_constructor *c = gfc_constructor_first (mold->value.constructor);
3011 mold->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind,
3016 f->ts = mold->ts
[all...] |
| match.cc | 4234 gfc_expr *stat, *errmsg, *tmp, *source, *mold; local
4243 stat = errmsg = source = mold = tmp = NULL;
4538 m = gfc_match (" mold = %e", &tmp);
4543 if (!gfc_notify_std (GFC_STD_F2008, "MOLD tag at %L", &tmp->where))
4549 gfc_error ("Redundant MOLD tag found at %L", &tmp->where);
4556 gfc_error ("MOLD tag at %L conflicts with the typespec at %L",
4561 mold = tmp;
4564 mold->mold = 1;
4580 if (source && mold)
[all...] |
| trans-stmt.cc | 6271 if (code->expr3->expr_type == EXPR_FUNCTION && !code->expr3->mold
6288 if (!code->expr3->mold
6436 : (code->expr3->mold ? E3_MOLD : E3_SOURCE))
6650 // We need to propagate the bounds of the expr3 for source=/mold=.
6888 source= or mold= expression. */
6916 if (al_vptr != NULL_TREE && (!code->expr3 || code->expr3->mold))
6930 that for arrays or in mold= cases the pre-evaluation
6976 source= or mold= expression. */
7000 if (code->expr3 && !code->expr3->mold && e3_is != E3_MOLD)
7047 else if (code->expr3 && code->expr3->mold
[all...] |
| gfortran.h | 2502 /* Mark an expression as being a MOLD argument of ALLOCATE. */
2503 unsigned int mold : 1; member in struct:gfc_expr
|
| resolve.cc | 8462 if (code->expr3 && code->expr3->mold
8465 /* Default initialization via MOLD (non-polymorphic). */
|
| /src/external/bsd/unbound/dist/validator/ |
| autotrust.c | 2078 time_t mold, mnew; local
2099 mold = wait_probe_time(env->anchors);
2109 if(mold != mnew) {
2123 time_t mold, mnew; local
2147 mold = wait_probe_time(env->anchors);
2164 if(mold != mnew) {
|
| /src/external/gpl3/gcc/dist/libstdc++-v3/ |
| configure | 22954 elif $LD --version 2>/dev/null | grep 'mold' >/dev/null 2>&1; then
28768 elif $LD --version 2>/dev/null | grep 'mold' >/dev/null 2>&1; then
31947 elif $LD --version 2>/dev/null | grep 'mold' >/dev/null 2>&1; then
[all...] |
| /src/external/gpl3/gcc.old/dist/libstdc++-v3/ |
| configure | 22192 elif $LD --version 2>/dev/null | grep 'mold' >/dev/null 2>&1; then
29409 elif $LD --version 2>/dev/null | grep 'mold' >/dev/null 2>&1; then
35344 elif $LD --version 2>/dev/null | grep 'mold' >/dev/null 2>&1; then
[all...] |
