diff options
| author | Andrew Burgess <andrew.burgess@embecosm.com> | 2021-02-24 17:35:18 +0000 |
|---|---|---|
| committer | Andrew Burgess <andrew.burgess@embecosm.com> | 2021-02-25 10:07:44 +0000 |
| commit | 170f4b23b6df18f6f9eb178530b96d3b056818ed (patch) | |
| tree | 9fbdbc267782aed3346fe1efe5f809850f422d30 /gdb/f-exp.y | |
| parent | bbaddd4bbeba65200ee805d87c2e3a845842e3eb (diff) | |
| download | binutils-gdb-170f4b23b6df18f6f9eb178530b96d3b056818ed.tar.gz | |
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.y | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gdb/f-exp.y b/gdb/f-exp.y index e95a2c974ca..64f5fd50857 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 }, |