aboutsummaryrefslogtreecommitdiff
path: root/gdb/f-exp.y
diff options
context:
space:
mode:
authorAndrew Burgess <andrew.burgess@embecosm.com>2021-02-24 17:35:18 +0000
committerAndrew Burgess <andrew.burgess@embecosm.com>2021-02-25 10:07:44 +0000
commit170f4b23b6df18f6f9eb178530b96d3b056818ed (patch)
tree9fbdbc267782aed3346fe1efe5f809850f422d30 /gdb/f-exp.y
parentbbaddd4bbeba65200ee805d87c2e3a845842e3eb (diff)
downloadgdb-170f4b23b6df18f6f9eb178530b96d3b056818ed.zip
gdb-170f4b23b6df18f6f9eb178530b96d3b056818ed.tar.gz
gdb-170f4b23b6df18f6f9eb178530b96d3b056818ed.tar.bz2
gdb/fortran: add support for legacy .xor. operator
gfortran supports .xor. as an alias for .neqv., see: https://gcc.gnu.org/onlinedocs/gfortran/_002eXOR_002e-operator.html this commit adds support for this operator to GDB. gdb/ChangeLog: * f-exp.y (fortran_operators): Add ".xor.". gdb/testsuite/ChangeLog: * gdb.fortran/dot-ops.exp (dot_operations): Test ".xor.".
Diffstat (limited to 'gdb/f-exp.y')
-rw-r--r--gdb/f-exp.y1
1 files changed, 1 insertions, 0 deletions
diff --git a/gdb/f-exp.y b/gdb/f-exp.y
index e95a2c9..64f5fd5 100644
--- a/gdb/f-exp.y
+++ b/gdb/f-exp.y
@@ -982,6 +982,7 @@ static const struct token fortran_operators[] =
{ ".eq.", EQUAL, BINOP_END, false },
{ ".eqv.", EQUAL, BINOP_END, false },
{ ".neqv.", NOTEQUAL, BINOP_END, false },
+ { ".xor.", NOTEQUAL, BINOP_END, false },
{ "==", EQUAL, BINOP_END, false },
{ ".ne.", NOTEQUAL, BINOP_END, false },
{ "/=", NOTEQUAL, BINOP_END, false },