[Bug fortran/110825] TYPE(*) dummy argument to generate an unused hidden argument

[anlauf at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=110825

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gcc dot gnu.org

--- Comment #2 from anlauf at gcc dot gnu.org ---
Untested fix:

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index ef3e6d08f78..a1eac8e611e 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -7521,6 +7521,7 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym,
          && !(fsym && fsym->ts.type == BT_DERIVED && fsym->ts.u.derived
               && fsym->ts.u.derived->intmod_sym_id == ISOCBINDING_PTR
               && fsym->ts.u.derived->from_intmod == INTMOD_ISO_C_BINDING )
+         && !(fsym && fsym->ts.type == BT_ASSUMED)
          && !(fsym && UNLIMITED_POLY (fsym)))
        vec_safe_push (stringargs, parmse.string_length);