[Bug fortran/63252] [5 Regression] tree_class_check_failed

[burnus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63252

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |burnus at gcc dot gnu.org

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Patch:

--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -3423,3 +3423,3 @@ gfc_build_builtin_function_decls (void)
        get_identifier (PREFIX("caf_unlock")), "R..WW",
-       void_type_node, 7, pvoid_type_node, size_type_node, integer_type_node,
+       void_type_node, 6, pvoid_type_node, size_type_node, integer_type_node,
        pint_type, pchar_type_node, integer_type_node);