| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| arith.cc | 449 if (op1->ts.type != BT_LOGICAL)
452 result = gfc_get_constant_expr (BT_LOGICAL, op1->ts.kind, &op1->where);
465 if (op1->ts.type != BT_LOGICAL || op2->ts.type != BT_LOGICAL)
468 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2),
482 if (op1->ts.type != BT_LOGICAL || op2->ts.type != BT_LOGICAL)
485 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2),
499 if (op1->ts.type != BT_LOGICAL || op2->ts.type != BT_LOGICAL)
[all...] |
| libgfortran.h | 191 { BT_UNKNOWN = 0, BT_INTEGER, BT_LOGICAL, BT_REAL, BT_COMPLEX,
|
| intrinsic.cc | 74 case BT_LOGICAL:
1469 add_sym_2 ("all", GFC_ISYM_ALL, CLASS_TRANSFORMATIONAL, ACTUAL_NO, BT_LOGICAL, dl, GFC_STD_F95,
1471 msk, BT_LOGICAL, dl, REQUIRED, dm, BT_INTEGER, ii, OPTIONAL);
1475 add_sym_1 ("allocated", GFC_ISYM_ALLOCATED, CLASS_INQUIRY, ACTUAL_NO, BT_LOGICAL, dl, GFC_STD_F95,
1491 add_sym_2 ("any", GFC_ISYM_ANY, CLASS_TRANSFORMATIONAL, ACTUAL_NO, BT_LOGICAL, dl, GFC_STD_F95,
1493 msk, BT_LOGICAL, dl, REQUIRED, dm, BT_INTEGER, ii, OPTIONAL);
1517 add_sym_2 ("associated", GFC_ISYM_ASSOCIATED, CLASS_INQUIRY, ACTUAL_NO, BT_LOGICAL, dl,
1644 BT_LOGICAL, dl, GFC_STD_F2008,
1651 BT_LOGICAL, dl, GFC_STD_F2008,
1664 BT_LOGICAL, dl, GFC_STD_F2008
[all...] |
| check.cc | 588 && e->ts.type != BT_LOGICAL)
717 if (array->ts.type != BT_LOGICAL || array->rank == 0)
1583 && !(atom->ts.type == BT_LOGICAL
2657 case BT_LOGICAL:
2658 if (!type_check (vector_b, 1, BT_LOGICAL))
2899 case BT_LOGICAL:
3204 if (back != NULL && !type_check (back, 2, BT_LOGICAL))
3601 if (!type_check (a, 0, BT_LOGICAL))
3603 if (!kind_check (kind, 1, BT_LOGICAL))
3809 if ((matrix_a->ts.type != BT_LOGICAL) && !gfc_numeric_ts (&matrix_a->ts)
[all...] |
| misc.cc | 79 case BT_LOGICAL:
154 case BT_LOGICAL:
|
| iresolve.cc | 123 ts.type = BT_LOGICAL;
135 ts.type = BT_LOGICAL;
535 f->ts.type = BT_LOGICAL;
1004 if (f->ts.type == BT_LOGICAL)
1047 f->ts.type = BT_LOGICAL;
1324 ts.type = BT_LOGICAL;
1398 f->ts.type = BT_LOGICAL;
1416 f->ts.type = BT_LOGICAL;
1553 f->ts.type = BT_LOGICAL;
1570 if (a->ts.type == BT_LOGICAL && b->ts.type == BT_LOGICAL
[all...] |
| trans-const.cc | 327 case BT_LOGICAL:
|
| target-memory.cc | 94 case BT_LOGICAL:
326 case BT_LOGICAL:
609 case BT_LOGICAL:
|
| class.cc | 1116 cond->block->expr1->ts.type = BT_LOGICAL;
1501 block->expr1->ts.type = BT_LOGICAL;
1510 expr->ts.type = BT_LOGICAL;
1527 expr2->ts.type = BT_LOGICAL;
1541 block->expr1->value.op.op2->ts.type = BT_LOGICAL;
1856 fini_coarray->ts.type = BT_LOGICAL;
1902 is_contiguous->ts.type = BT_LOGICAL;
2067 block->expr1->ts.type = BT_LOGICAL;
|
| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| libgfortran.h | 184 { BT_UNKNOWN = 0, BT_INTEGER, BT_LOGICAL, BT_REAL, BT_COMPLEX,
|
| arith.cc | 422 result = gfc_get_constant_expr (BT_LOGICAL, op1->ts.kind, &op1->where);
435 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2),
449 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2),
463 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2),
477 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2),
1078 case BT_LOGICAL:
1177 result = gfc_get_constant_expr (BT_LOGICAL, gfc_default_logical_kind,
1193 result = gfc_get_constant_expr (BT_LOGICAL, gfc_default_logical_kind,
1209 result = gfc_get_constant_expr (BT_LOGICAL, gfc_default_logical_kind,
1223 result = gfc_get_constant_expr (BT_LOGICAL, gfc_default_logical_kind
[all...] |
| intrinsic.cc | 73 case BT_LOGICAL:
1468 add_sym_2 ("all", GFC_ISYM_ALL, CLASS_TRANSFORMATIONAL, ACTUAL_NO, BT_LOGICAL, dl, GFC_STD_F95,
1470 msk, BT_LOGICAL, dl, REQUIRED, dm, BT_INTEGER, ii, OPTIONAL);
1474 add_sym_1 ("allocated", GFC_ISYM_ALLOCATED, CLASS_INQUIRY, ACTUAL_NO, BT_LOGICAL, dl, GFC_STD_F95,
1490 add_sym_2 ("any", GFC_ISYM_ANY, CLASS_TRANSFORMATIONAL, ACTUAL_NO, BT_LOGICAL, dl, GFC_STD_F95,
1492 msk, BT_LOGICAL, dl, REQUIRED, dm, BT_INTEGER, ii, OPTIONAL);
1516 add_sym_2 ("associated", GFC_ISYM_ASSOCIATED, CLASS_INQUIRY, ACTUAL_NO, BT_LOGICAL, dl,
1643 BT_LOGICAL, dl, GFC_STD_F2008,
1650 BT_LOGICAL, dl, GFC_STD_F2008,
1663 BT_LOGICAL, dl, GFC_STD_F2008
[all...] |
| check.cc | 588 && e->ts.type != BT_LOGICAL)
717 if (array->ts.type != BT_LOGICAL || array->rank == 0)
1556 && !(atom->ts.type == BT_LOGICAL
2630 case BT_LOGICAL:
2631 if (!type_check (vector_b, 1, BT_LOGICAL))
2872 case BT_LOGICAL:
3177 if (back != NULL && !type_check (back, 2, BT_LOGICAL))
3574 if (!type_check (a, 0, BT_LOGICAL))
3576 if (!kind_check (kind, 1, BT_LOGICAL))
3782 if ((matrix_a->ts.type != BT_LOGICAL) && !gfc_numeric_ts (&matrix_a->ts)
[all...] |
| misc.cc | 79 case BT_LOGICAL:
149 case BT_LOGICAL:
|
| iresolve.cc | 123 ts.type = BT_LOGICAL;
135 ts.type = BT_LOGICAL;
531 f->ts.type = BT_LOGICAL;
1000 if (f->ts.type == BT_LOGICAL)
1043 f->ts.type = BT_LOGICAL;
1320 ts.type = BT_LOGICAL;
1394 f->ts.type = BT_LOGICAL;
1412 f->ts.type = BT_LOGICAL;
1549 f->ts.type = BT_LOGICAL;
1566 if (a->ts.type == BT_LOGICAL && b->ts.type == BT_LOGICAL
[all...] |
| trans-const.cc | 327 case BT_LOGICAL:
|
| target-memory.cc | 94 case BT_LOGICAL:
326 case BT_LOGICAL:
606 case BT_LOGICAL:
|
| class.cc | 1050 cond->block->expr1->ts.type = BT_LOGICAL;
1391 block->expr1->ts.type = BT_LOGICAL;
1400 expr->ts.type = BT_LOGICAL;
1417 expr2->ts.type = BT_LOGICAL;
1431 block->expr1->value.op.op2->ts.type = BT_LOGICAL;
1748 fini_coarray->ts.type = BT_LOGICAL;
1794 is_contiguous->ts.type = BT_LOGICAL;
1959 block->expr1->ts.type = BT_LOGICAL;
|
| expr.cc | 233 p = gfc_get_constant_expr (BT_LOGICAL, kind,
253 e->ts.type = BT_LOGICAL;
340 case BT_LOGICAL:
2626 if (et0 (op1) != BT_LOGICAL)
2642 if (et0 (op1) != BT_LOGICAL || et0 (op2) != BT_LOGICAL)
3865 || lvalue->ts.type == BT_LOGICAL)
3870 if (lvalue->ts.type == BT_LOGICAL && rvalue->ts.type == BT_LOGICAL)
4785 case BT_LOGICAL
[all...] |
| /src/external/gpl3/gcc.old/dist/libgfortran/ |
| libgfortran.h | 503 #define GFC_DTYPE_LOGICAL_1 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
505 #define GFC_DTYPE_LOGICAL_2 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
507 #define GFC_DTYPE_LOGICAL_4 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
509 #define GFC_DTYPE_LOGICAL_8 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
512 #define GFC_DTYPE_LOGICAL_16 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
|
| /src/external/gpl3/gcc/dist/libgfortran/ |
| libgfortran.h | 507 #define GFC_DTYPE_LOGICAL_1 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
509 #define GFC_DTYPE_LOGICAL_2 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
511 #define GFC_DTYPE_LOGICAL_4 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
513 #define GFC_DTYPE_LOGICAL_8 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
516 #define GFC_DTYPE_LOGICAL_16 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
|
| /src/external/gpl3/gcc.old/dist/libgfortran/io/ |
| list_read.c | 871 dtp->u.p.saved_type = BT_LOGICAL;
944 dtp->u.p.saved_type = BT_LOGICAL;
2172 case BT_LOGICAL:
2251 case BT_LOGICAL:
2896 case BT_LOGICAL:
2964 case BT_LOGICAL:
3106 case BT_LOGICAL:
|
| write.c | 1940 case BT_LOGICAL:
2245 case BT_LOGICAL:
|
| /src/external/gpl3/gcc/dist/libgfortran/io/ |
| list_read.c | 898 dtp->u.p.saved_type = BT_LOGICAL;
979 dtp->u.p.saved_type = BT_LOGICAL;
2229 case BT_LOGICAL:
2321 case BT_LOGICAL:
2966 case BT_LOGICAL:
3034 case BT_LOGICAL:
3190 case BT_LOGICAL:
|
| write.c | 1951 case BT_LOGICAL:
2269 case BT_LOGICAL:
|
