From f47957c745a8e05f0bd4615780ffe78c6200a003 Mon Sep 17 00:00:00 2001 From: dfranke Date: Sun, 8 Jul 2007 21:08:52 +0000 Subject: gcc/fortran: 2007-07-08 Daniel Franke Tobias Schlüter MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit PR fortran/17711 * gfortran.h (gfc_intrinsic_op): Added INTRINSIC_EQ_OS, INTRINSIC_NE_OS, INTRINSIC_GT_OS, INTRINSIC_GE_OS, INTRINSIC_LT_OS and INTRINSIC_LE_OS. * arith.c (eval_intrinsic, eval_type_intrinsic0): Likewise. * arith.h (gfc_eq, gfc_ne, gfc_gt, gfc_ge, gfc_lt, gfc_le): Added gfc_intrinsic_op as third argument type. * dump-parse-tree.c (gfc_show_expr): Account for new enum values. * expr.c (simplify_intrinsic_op, check_intrinsic_op): Likewise. * interface.c (check_operator_interface): Likewise. (gfc_check_interfaces): Added cross-checks for FORTRAN 77 and Fortran 90 style operators using new enum values. (gfc_extend_expr): Likewise. (gfc_add_interface): Likewise. * match.c (intrinsic_operators): Distinguish FORTRAN 77 style operators from Fortran 90 style operators using new enum values. * matchexp.c (match_level_4): Account for new enum values. * module.c (mio_expr): Likewise. * resolve.c (resolve_operator): Deal with new enum values, fix inconsistent error messages. * trans-expr.c (gfc_conv_expr_op): Account for new enum values. gcc/testsuite: 2007-07-08 Daniel Franke PR fortran/17711 * gfortran.dg/operator_4.f90: New test. * gfortran.dg/operator_5.f90: New test. * gfortran.dg/logical_comp.f90: Adjusted error messages. * gfortran.dg/module_md5_1.f90: Adjusted MD5 sum. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126468 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/dump-parse-tree.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'gcc/fortran/dump-parse-tree.c') diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 5d181e2ab24..f81bf04684b 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -472,21 +472,27 @@ gfc_show_expr (gfc_expr *p) gfc_status ("NEQV "); break; case INTRINSIC_EQ: + case INTRINSIC_EQ_OS: gfc_status ("= "); break; case INTRINSIC_NE: - gfc_status ("<> "); + case INTRINSIC_NE_OS: + gfc_status ("/= "); break; case INTRINSIC_GT: + case INTRINSIC_GT_OS: gfc_status ("> "); break; case INTRINSIC_GE: + case INTRINSIC_GE_OS: gfc_status (">= "); break; case INTRINSIC_LT: + case INTRINSIC_LT_OS: gfc_status ("< "); break; case INTRINSIC_LE: + case INTRINSIC_LE_OS: gfc_status ("<= "); break; case INTRINSIC_NOT: -- cgit v1.2.3