re PR fortran/63252 (tree_class_check_failed)

2014-09-13  Tobias Burnus  <burnus@net-b.de>

        PR fortran/63252
        * trans-decl.c (gfc_build_builtin_function_decls): Fix
        caf_unlock declaration.

From-SVN: r215236

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5488371c4c6be5ffdcc6607e7a4dd85ba3fe0849..0defd7f6a98627f99d0ba167d6ef62a7c015ef76 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2014-09-13  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/63252
+       * trans-decl.c (gfc_build_builtin_function_decls): Fix
+       caf_unlock declaration.
+
 2014-09-12  Joseph Myers  <joseph@codesourcery.com>
 
        * trans-types.c (gfc_init_kinds): Check

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 6afa6f3b6963ac3e65993290a9f628b6e74f8edd..c0a5cc15d8f1b02fdc011f57a0f01cc403916599 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -3421,7 +3421,7 @@ gfc_build_builtin_function_decls (void)
 
       gfor_fndecl_caf_unlock = gfc_build_library_function_decl_with_spec (
        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);
 
       gfor_fndecl_co_max = gfc_build_library_function_decl_with_spec (