diff options
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index d5e436d1159..8edf5692bb0 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -153,7 +153,7 @@ const struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER; #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE, -const char tree_code_type[] = { +const enum tree_code_class tree_code_type[] = { #include "tree.def" }; #undef DEFTREECODE @@ -221,7 +221,7 @@ gfc_truthvalue_conversion (tree expr) case BOOLEAN_TYPE: if (TREE_TYPE (expr) == boolean_type_node) return expr; - else if (TREE_CODE_CLASS (TREE_CODE (expr)) == '<') + else if (COMPARISON_CLASS_P (expr)) { TREE_TYPE (expr) = boolean_type_node; return expr; |