| /src/external/gpl3/gdb.old/dist/gdb/testsuite/gdb.fortran/ |
| intrinsic-precedence.f90 | 19 integer(kind=4) LOC, ubound, minus variable in program:intrinsic_precedence
21 ubound = 79
23 print *, minus, LOC, ubound
|
| /src/external/gpl3/gdb/dist/gdb/testsuite/gdb.fortran/ |
| intrinsic-precedence.f90 | 19 integer(kind=4) LOC, ubound, minus variable in program:intrinsic_precedence
21 ubound = 79
23 print *, minus, LOC, ubound
|
| /src/external/gpl3/gcc.old/dist/gcc/ |
| gimple-array-bounds.cc | 461 offset_int ubound = aref.sizrng[1]; local
463 ubound += eltsize;
467 || offrange[0] >= ubound
472 const bool uboob = !lboob && offrange[0] + axssize > ubound;
535 if (aref.offmax[i] < -aref.sizrng[1] || aref.offmax[i = 1] > ubound)
|
| /src/external/gpl3/gcc/dist/gcc/ |
| gimple-array-bounds.cc | 546 offset_int ubound = aref.sizrng[1]; local
548 ubound += eltsize;
552 || offrange[0] >= ubound
557 const bool uboob = !lboob && offrange[0] + axssize > ubound;
620 if (aref.offmax[i] < -aref.sizrng[1] || aref.offmax[i = 1] > ubound)
|
| /src/external/gpl3/gdb.old/dist/gdb/ |
| f-lang.c | 126 error (_("UBOUND can only be applied to arrays"));
199 error (_("UBOUND dimension must be from 1 to %d"), ndimensions);
629 LONGEST lbound, ubound; local
632 if (!get_discrete_bounds (range, &lbound, &ubound))
635 LONGEST dim_size = (ubound - lbound + 1);
745 LONGEST lbound, ubound; local
747 if (!get_discrete_bounds (val_type->index_type (), &lbound, &ubound))
750 LONGEST dim_size = (ubound - lbound + 1);
1588 error (_("UBOUND second argument should be an integer"));
1612 error (_("UBOUND second argument should be an integer"))
[all...] |
| /src/external/gpl3/gdb/dist/gdb/ |
| f-lang.c | 126 error (_("UBOUND can only be applied to arrays"));
199 error (_("UBOUND dimension must be from 1 to %d"), ndimensions);
629 LONGEST lbound, ubound; local
632 if (!get_discrete_bounds (range, &lbound, &ubound))
635 LONGEST dim_size = (ubound - lbound + 1);
745 LONGEST lbound, ubound; local
747 if (!get_discrete_bounds (val_type->index_type (), &lbound, &ubound))
750 LONGEST dim_size = (ubound - lbound + 1);
1588 error (_("UBOUND second argument should be an integer"));
1612 error (_("UBOUND second argument should be an integer"))
[all...] |
| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| trans-types.cc | 1332 index ubound;
1428 tree ubound[GFC_MAX_DIMENSIONS];
1442 ubound[n] = NULL_TREE;
1452 ubound[n] = gfc_conv_array_bound (as->upper[n]);
1463 ubound[n] = gfc_conv_array_bound (as->upper[n]);
1474 corank, lbound, ubound, 0, akind,
1496 /* Consists of the stride, lbound and ubound members. */
1508 get_identifier ("ubound"),
1960 tree * ubound, int packed,
2038 upper = ubound[n]
1422 tree ubound[GFC_MAX_DIMENSIONS]; local
[all...] |
| trans.h | 1020 tree ubound[GFC_MAX_DIMENSIONS]; variable
1091 (TYPE_LANG_SPECIFIC(node)->ubound[dim])
|
| trans-decl.cc | 1066 GFC_TYPE_ARRAY_UBOUND (type, dim) = create_index_var ("ubound", nest);
1084 /* Don't try to use the unknown ubound for the last coarray dimension. */
1088 GFC_TYPE_ARRAY_UBOUND (type, dim) = create_index_var ("ubound", nest);
1153 tree lbound, ubound; local
1155 ubound = GFC_TYPE_ARRAY_UBOUND (type, dim);
1156 rtype = build_range_type (gfc_array_index_type, lbound, ubound);
1161 the artificial lbound.N or ubound.N DECL_NAME doesn't
1174 if (ubound
1175 && VAR_P (ubound)
1176 && DECL_ARTIFICIAL (ubound)
[all...] |
| trans-stmt.cc | 924 tree desc, tmp, extent, lbound, ubound; local
957 ubound = gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[i]);
958 tmp = gfc_conv_array_extent_dim (lbound, ubound, NULL);
1122 tree desc, tmp, extent, lbound, ubound; local
1155 ubound = gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[i]);
1156 tmp = gfc_conv_array_extent_dim (lbound, ubound, NULL);
3777 rank = (rank == 0 || ubound[rank-1] != -1) ? rank : -1. */
|
| trans-array.cc | 568 specified. This also updates ubound and offset accordingly. */
574 tree offs, ubound, lbound, stride; local
581 ubound = gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[dim]);
588 /* Shift ubound and offset accordingly. This has to be done before
590 ubound = fold_build2_loc (input_location, PLUS_EXPR, gfc_array_index_type,
591 ubound, diff);
592 gfc_conv_descriptor_ubound_set (block, desc, gfc_rank_cst[dim], ubound);
1631 delta = ubound[n] + 1 - lbound[n];
1758 tree ubound; local
1763 ubound = gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[0])
4888 tree lbound, ubound; local
5857 tree ubound; local
5941 gfc_expr *ubound; local
6746 tree ubound; local
6793 tree ubound; local
7116 tree ubound; local
8506 tree ubound = gfc_conv_descriptor_ubound_get (desc, dim); local
9545 tree ubound; local
9788 tree ubound; local
10749 tree ubound; local
10973 tree ubound; local
[all...] |
| trans-expr.cc | 2479 tree lbound, ubound, extent, tmp, img_idx; local
2511 ubound = gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[i]);
2512 tmp = gfc_conv_array_extent_dim (lbound, ubound, NULL);
2532 ubound = GFC_TYPE_ARRAY_UBOUND (TREE_TYPE (desc), i);
2534 TREE_TYPE (ubound), ubound, lbound);
4819 /* TODO These implementations of lbound and ubound do not limit if
5961 /* cfi->dim[i].extent = gfc->dim[i].ubound - gfc->dim[i].lbound + 1. */
6056 /* Calculate offset + set lbound, ubound and stride. */
6067 /* gfc->dim[i].ubound = gfc->dim[i].lbound + cfi->dim[i].extent - 1. *
10755 tree lbound, ubound; local
[all...] |
| trans-intrinsic.cc | 1107 tree lbound, ubound, tmp; local
1164 ubound = gfc_conv_descriptor_ubound_get (vector, gfc_rank_cst[0]);
1165 nvec = gfc_conv_array_extent_dim (lbound, ubound, NULL);
2374 lbound, ubound, extent, ml; local
2544 ubound = gfc_conv_descriptor_ubound_get (desc, loop_var);
2545 extent = gfc_conv_array_extent_dim (lbound, ubound, NULL);
2680 tree num_images, cond, coindex, type, lbound, ubound, desc, subdesc, local
2717 ubound = gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[codim]);
2726 ubound);
2746 tree extent, ubound; local
2944 tree ubound; local
12385 tree desc, tmp, extent, lbound, ubound; local
[all...] |
| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| trans-types.cc | 1320 index ubound;
1416 tree ubound[GFC_MAX_DIMENSIONS];
1430 ubound[n] = NULL_TREE;
1440 ubound[n] = gfc_conv_array_bound (as->upper[n]);
1451 ubound[n] = gfc_conv_array_bound (as->upper[n]);
1462 corank, lbound, ubound, 0, akind,
1484 /* Consists of the stride, lbound and ubound members. */
1496 get_identifier ("ubound"),
1942 tree * ubound, int packed,
2020 upper = ubound[n]
1410 tree ubound[GFC_MAX_DIMENSIONS]; local
[all...] |
| trans.h | 1000 tree ubound[GFC_MAX_DIMENSIONS]; variable
1071 (TYPE_LANG_SPECIFIC(node)->ubound[dim])
|
| trans-decl.cc | 1061 GFC_TYPE_ARRAY_UBOUND (type, dim) = create_index_var ("ubound", nest);
1079 /* Don't try to use the unknown ubound for the last coarray dimension. */
1083 GFC_TYPE_ARRAY_UBOUND (type, dim) = create_index_var ("ubound", nest);
1148 tree lbound, ubound; local
1150 ubound = GFC_TYPE_ARRAY_UBOUND (type, dim);
1151 rtype = build_range_type (gfc_array_index_type, lbound, ubound);
1156 the artificial lbound.N or ubound.N DECL_NAME doesn't
1169 if (ubound
1170 && VAR_P (ubound)
1171 && DECL_ARTIFICIAL (ubound)
[all...] |
| trans-stmt.cc | 920 tree desc, tmp, extent, lbound, ubound; local
953 ubound = gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[i]);
954 tmp = gfc_conv_array_extent_dim (lbound, ubound, NULL);
1118 tree desc, tmp, extent, lbound, ubound; local
1151 ubound = gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[i]);
1152 tmp = gfc_conv_array_extent_dim (lbound, ubound, NULL);
3698 rank = (rank == 0 || ubound[rank-1] != -1) ? rank : -1. */
|
| trans-array.cc | 550 specified. This also updates ubound and offset accordingly. */
556 tree offs, ubound, lbound, stride; local
563 ubound = gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[dim]);
570 /* Shift ubound and offset accordingly. This has to be done before
572 ubound = fold_build2_loc (input_location, PLUS_EXPR, gfc_array_index_type,
573 ubound, diff);
574 gfc_conv_descriptor_ubound_set (block, desc, gfc_rank_cst[dim], ubound);
1622 delta = ubound[n] + 1 - lbound[n];
1749 tree ubound; local
1754 ubound = gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[0])
4707 tree lbound, ubound; local
5648 tree ubound; local
5732 gfc_expr *ubound; local
6479 tree ubound; local
6520 tree ubound; local
6814 tree ubound; local
8165 tree ubound = gfc_conv_descriptor_ubound_get (desc, dim); local
9166 tree ubound; local
9412 tree ubound; local
10329 tree ubound; local
10555 tree ubound; local
[all...] |
| trans-expr.cc | 2399 tree lbound, ubound, extent, tmp, img_idx; local
2431 ubound = gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[i]);
2432 tmp = gfc_conv_array_extent_dim (lbound, ubound, NULL);
2452 ubound = GFC_TYPE_ARRAY_UBOUND (TREE_TYPE (desc), i);
2454 TREE_TYPE (ubound), ubound, lbound);
4717 /* TODO These implementations of lbound and ubound do not limit if
5846 /* cfi->dim[i].extent = gfc->dim[i].ubound - gfc->dim[i].lbound + 1. */
5941 /* Calculate offset + set lbound, ubound and stride. */
5952 /* gfc->dim[i].ubound = gfc->dim[i].lbound + cfi->dim[i].extent - 1. *
10210 tree lbound, ubound; local
[all...] |
| trans-intrinsic.cc | 1100 tree lbound, ubound, tmp; local
1157 ubound = gfc_conv_descriptor_ubound_get (vector, gfc_rank_cst[0]);
1158 nvec = gfc_conv_array_extent_dim (lbound, ubound, NULL);
2367 lbound, ubound, extent, ml; local
2537 ubound = gfc_conv_descriptor_ubound_get (desc, loop_var);
2538 extent = gfc_conv_array_extent_dim (lbound, ubound, NULL);
2673 tree num_images, cond, coindex, type, lbound, ubound, desc, subdesc, local
2710 ubound = gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[codim]);
2719 ubound);
2739 tree extent, ubound; local
2937 tree ubound; local
12087 tree desc, tmp, extent, lbound, ubound; local
[all...] |
