diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2025-05-14 20:11:48 +0200 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2025-05-14 20:16:43 +0200 |
| commit | 4f9c7b5258f2af89bba8e954c277981d2e2ee1ef (patch) | |
| tree | 2799743d9db2afd0e1cb046849c533e52d6aca84 /gcc/fortran/dump-parse-tree.cc | |
| parent | fa0dff8e99e81bc7a3db1dc57d4fc340e0525b1d (diff) | |
| download | gcc-4f9c7b5258f2af89bba8e954c277981d2e2ee1ef.zip gcc-4f9c7b5258f2af89bba8e954c277981d2e2ee1ef.tar.gz gcc-4f9c7b5258f2af89bba8e954c277981d2e2ee1ef.tar.bz2 | |
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.
Diffstat (limited to 'gcc/fortran/dump-parse-tree.cc')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.cc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/dump-parse-tree.cc b/gcc/fortran/dump-parse-tree.cc index 8d5e25d..3cd2eee 100644 --- a/gcc/fortran/dump-parse-tree.cc +++ b/gcc/fortran/dump-parse-tree.cc @@ -4371,6 +4371,8 @@ get_c_type_name (gfc_typespec *ts, gfc_array_spec *as, const char **pre, mpz_clear (sz); *asterisk = false; } + else + *asterisk = true; } return ret; } |