PR fortran/34186
* symbol.c (generate_isocbinding_symbol): Set string length.
* dump-parse-tree.c (gfc_show_attr): Show BIND(C) attribute.
* misc.c (gfc_basic_typename): Handle BT_VOID.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130534
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-11-30 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/34186
+ * symbol.c (generate_isocbinding_symbol): Set string length.
+ * dump-parse-tree.c (gfc_show_attr): Show BIND(C) attribute.
+ * misc.c (gfc_basic_typename): Handle BT_VOID.
+
2007-11-29 Steven G. Kargl <kargls@comcast.net>
PR fortran/34230
gfc_status (" RESULT");
if (attr->entry)
gfc_status (" ENTRY");
+ if (attr->is_bind_c)
+ gfc_status (" BIND(C)");
if (attr->data)
gfc_status (" DATA");
case BT_PROCEDURE:
p = "PROCEDURE";
break;
+ case BT_VOID:
+ p = "VOID";
+ break;
case BT_UNKNOWN:
p = "UNKNOWN";
break;
tmp_sym->value->value.character.string[0]
= (char) c_interop_kinds_table[s].value;
tmp_sym->value->value.character.string[1] = '\0';
+ tmp_sym->value->ts.cl = gfc_get_charlen ();
+ tmp_sym->value->ts.cl->length = gfc_int_expr (1);
/* May not need this in both attr and ts, but do need in
attr for writing module file. */