OpenGrok
Home
Sort by:
relevance
|
last modified time
|
path
Full Search
in project(s):
src
xsrc
Definition
Symbol
File Path
History
|
|
Help
Searched
defs:gfc_compare_expr
(Results
1 - 2
of
2
) sorted by relevancy
/src/external/gpl3/gcc/dist/gcc/fortran/
arith.cc
1127
gfc_compare_expr
(gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op)
function
1156
gfc_internal_error ("
gfc_compare_expr
(): Bad basic type");
1251
: (
gfc_compare_expr
(op1, op2, INTRINSIC_EQ) == 0);
1270
: (
gfc_compare_expr
(op1, op2, INTRINSIC_EQ) != 0);
1287
result->value.logical = (
gfc_compare_expr
(op1, op2, INTRINSIC_GT) > 0);
1304
result->value.logical = (
gfc_compare_expr
(op1, op2, INTRINSIC_GE) >= 0);
1321
result->value.logical = (
gfc_compare_expr
(op1, op2, INTRINSIC_LT) < 0);
1338
result->value.logical = (
gfc_compare_expr
(op1, op2, INTRINSIC_LE) <= 0);
/src/external/gpl3/gcc.old/dist/gcc/fortran/
arith.cc
1060
gfc_compare_expr
(gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op)
function
1089
gfc_internal_error ("
gfc_compare_expr
(): Bad basic type");
1181
: (
gfc_compare_expr
(op1, op2, INTRINSIC_EQ) == 0);
1197
: (
gfc_compare_expr
(op1, op2, INTRINSIC_EQ) != 0);
1211
result->value.logical = (
gfc_compare_expr
(op1, op2, INTRINSIC_GT) > 0);
1225
result->value.logical = (
gfc_compare_expr
(op1, op2, INTRINSIC_GE) >= 0);
1239
result->value.logical = (
gfc_compare_expr
(op1, op2, INTRINSIC_LT) < 0);
1253
result->value.logical = (
gfc_compare_expr
(op1, op2, INTRINSIC_LE) <= 0);
Completed in 31 milliseconds
Indexes created Tue Mar 03 05:31:39 UTC 2026