* trans-types.c (gfc_sym_type, gfc_return_by_reference): For
sym->attr.result check sym->ns->proc_name->attr.is_bind_c.
* gfortran.dg/bind_c_usage_19.f90: New test.
From-SVN: r145294
+2009-03-30 Jakub Jelinek <jakub@redhat.com>
+
+ * trans-types.c (gfc_sym_type, gfc_return_by_reference): For
+ sym->attr.result check sym->ns->proc_name->attr.is_bind_c.
+
2009-03-30 Joseph Myers <joseph@codesourcery.com>
PR rtl-optimization/323
2009-03-30 Joseph Myers <joseph@codesourcery.com>
PR rtl-optimization/323
if (sym->backend_decl && !sym->attr.function)
return TREE_TYPE (sym->backend_decl);
if (sym->backend_decl && !sym->attr.function)
return TREE_TYPE (sym->backend_decl);
- if (sym->ts.type == BT_CHARACTER && sym->attr.is_bind_c
- && (sym->attr.function || sym->attr.result))
+ if (sym->ts.type == BT_CHARACTER
+ && ((sym->attr.function && sym->attr.is_bind_c)
+ || (sym->attr.result
+ && sym->ns->proc_name
+ && sym->ns->proc_name->attr.is_bind_c)))
type = gfc_character1_type_node;
else
type = gfc_typenode_for_spec (&sym->ts);
type = gfc_character1_type_node;
else
type = gfc_typenode_for_spec (&sym->ts);
if (sym->attr.dimension)
return 1;
if (sym->attr.dimension)
return 1;
- if (sym->ts.type == BT_CHARACTER && !sym->attr.is_bind_c)
+ if (sym->ts.type == BT_CHARACTER
+ && !sym->attr.is_bind_c
+ && (!sym->attr.result
+ || !sym->ns->proc_name
+ || !sym->ns->proc_name->attr.is_bind_c))
return 1;
/* Possibly return complex numbers by reference for g77 compatibility.
return 1;
/* Possibly return complex numbers by reference for g77 compatibility.
+2009-03-30 Jakub Jelinek <jakub@redhat.com>
+
+ * gfortran.dg/bind_c_usage_19.f90: New test.
+
2009-03-30 Joseph Myers <joseph@codesourcery.com>
PR rtl-optimization/323
2009-03-30 Joseph Myers <joseph@codesourcery.com>
PR rtl-optimization/323
--- /dev/null
+! { dg-do compile }
+function return_char1(i) bind(c,name='return_char1')
+ use iso_c_binding
+ implicit none
+ integer(c_int) :: i
+ character(c_char) :: j
+ character(c_char) :: return_char1
+
+ j = achar(i)
+ return_char1 = j
+end function return_char1
+function return_char2(i) result(output) bind(c,name='return_char2')
+ use iso_c_binding
+ implicit none
+ integer(c_int) :: i
+ character(c_char) :: j
+ character(c_char) :: output
+
+ j = achar(i)
+ output = j
+end function return_char2
+function return_char3(i) bind(c,name='return_char3') result(output)
+ use iso_c_binding
+ implicit none
+ integer(c_int) :: i
+ character(c_char) :: j
+ character(c_char) :: output
+
+ j = achar(i)
+ output = j
+end function return_char3