Skip to content

Commit 4f9c7b5

Browse files
author
Thomas Koenig
committed
Fix explicit arrays with non-constant size for -fc-prototypes.
gcc/fortran/ChangeLog: PR fortran/120139 * dump-parse-tree.cc (get_c_type_name): If no constant size of an array exists, output an asterisk.
1 parent fa0dff8 commit 4f9c7b5

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

gcc/fortran/dump-parse-tree.cc

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4371,6 +4371,8 @@ get_c_type_name (gfc_typespec *ts, gfc_array_spec *as, const char **pre,
43714371
mpz_clear (sz);
43724372
*asterisk = false;
43734373
}
4374+
else
4375+
*asterisk = true;
43744376
}
43754377
return ret;
43764378
}

0 commit comments

Comments
 (0)