OSDN Git Service

2009-07-29 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 29 Jul 2009 14:44:51 +0000 (14:44 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 29 Jul 2009 14:44:51 +0000 (14:44 +0000)
        PR fortran/40898
        * trans-types.c (gfc_get_function_type): Do not add hidden
        string-length argument for BIND(C) procedures.
        * trans-decl.c (create_function_arglist): Skip over nonexisting
        string-length arguments for BIND(C) procedures.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150216 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/trans-decl.c
gcc/fortran/trans-types.c

index 623c601..f89a8af 100644 (file)
@@ -1,3 +1,11 @@
+2009-07-29  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/40898
+       * trans-types.c (gfc_get_function_type): Do not add hidden
+       string-length argument for BIND(C) procedures.
+       * trans-decl.c (create_function_arglist): Skip over nonexisting
+       string-length arguments for BIND(C) procedures.
+
 2009-07-28  Jakub Jelinek  <jakub@redhat.com>
 
        PR fortran/40878
index 65a6ac5..783c8f8 100644 (file)
@@ -1724,7 +1724,8 @@ create_function_arglist (gfc_symbol * sym)
 
       type = TREE_VALUE (typelist);
 
-      if (f->sym->ts.type == BT_CHARACTER)
+      if (f->sym->ts.type == BT_CHARACTER
+         && (!sym->attr.is_bind_c || sym->attr.entry_master))
        {
          tree len_type = TREE_VALUE (hidden_typelist);
          tree length = NULL_TREE;
index 77b8b9c..7b84236 100644 (file)
@@ -2249,7 +2249,7 @@ gfc_get_function_type (gfc_symbol * sym)
             Contained procedures could pass by value as these are never
             used without an explicit interface, and cannot be passed as
             actual parameters for a dummy procedure.  */
-         if (arg->ts.type == BT_CHARACTER)
+         if (arg->ts.type == BT_CHARACTER && !sym->attr.is_bind_c)
             nstr++;
          typelist = gfc_chainon_list (typelist, type);
        }