[Bug fortran/84073] In -fc-prototypes fixed (nonzero) length strings are mapped to plain char in prototype.

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
             Status|UNCONFIRMED                 |WAITING
   Last reconfirmed|                            |2018-01-26
                 CC|                            |tkoenig at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Withe the following change

--- pr84073.f90 2018-01-26 22:48:32.000000000 +0100
+++ pr84073_db.f90      2018-01-27 00:03:06.000000000 +0100
@@ -13,10 +13,10 @@ module utderror
     integer(c_int)    :: nerrorloc
     real(c_double)    :: errorstartloc(3)
     real(c_double)    :: errorendloc(3)
-    character(kind=c_char, len=41) :: errorsubsystem
-    character(kind=c_char, len=9) :: errorseverity
+    character(kind=c_char) :: errorsubsystem(41)
+    character(kind=c_char) :: errorseverity(9)
     integer(c_int)    :: errorid
-    character(kind=c_char, len=1001) :: errormessage
+    character(kind=c_char) :: errormessage(1001)
   end type

   type(utderror_t), bind(c), save :: utderror_v

I get

...
    char errorsubsystem[41];
    char errorseverity[9];
    int errorid;
    char errormessage[1001];
} utderror_t;
void add_utd_error (int *ierror);
extern utderror_t utderror_v;

Possibly related to PR38506.