[gcc r15-9688] Fix explicit arrays with non-constant size for -fc-prototypes.

[Thomas Koenig via Gcc-cvs]

https://gcc.gnu.org/g:a85776f7f64271d628ae0a04f02717ee6572e6e8

commit r15-9688-ga85776f7f64271d628ae0a04f02717ee6572e6e8
Author: Thomas Koenig <tkoe...@gcc.gnu.org>
Date:   Wed May 14 20:11:48 2025 +0200

    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.
    
    (cherry picked from commit 4f9c7b5258f2af89bba8e954c277981d2e2ee1ef)

Diff:
---
 gcc/fortran/dump-parse-tree.cc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gcc/fortran/dump-parse-tree.cc b/gcc/fortran/dump-parse-tree.cc
index 558a2853cc43..3c1060375304 100644
--- a/gcc/fortran/dump-parse-tree.cc
+++ b/gcc/fortran/dump-parse-tree.cc
@@ -4336,6 +4336,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;
 }