This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Fortran dir warning cleanup part 1/2
- To: egcs-patches at egcs dot cygnus dot com
- Subject: Fortran dir warning cleanup part 1/2
- From: "Kaveh R. Ghazi" <ghazi at caip dot rutgers dot edu>
- Date: Tue, 30 Mar 1999 08:07:15 -0500 (EST)
Here's a patch set to get most of the remaining warnings in
the f/ directory when using -Wstrict-prototypes, -Wmissing-prototypes,
-Wmissing-declarations and -Wwrite-strings flags.
I bootstrapped this on alphaev5-dec-osf4.0b and saw no
regressions in the fortran tests.
This is part 1/2, okay to install?
Thanks,
--Kaveh
Mon Mar 29 14:38:38 1999 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* sta.c (ffesta_ffebad_1sp, ffesta_ffebad_1st, ffesta_ffebad_2st):
Const-ify a char*.
* sta.h (ffesta_ffebad_1sp, ffesta_ffebad_1st, ffesta_ffebad_2st):
Likewise.
* stb.c (ffestb_local_u_): Likewise.
(ffestb_do, ffestb_dowhile, ffestb_else, ffestb_elsexyz,
ffestb_else3_, ffestb_endxyz, ffestb_goto, ffestb_let,
ffestb_type, ffestb_type1_, ffestb_varlist, ffestb_R423B,
ffestb_R522, ffestb_R528, ffestb_R542, ffestb_R834, ffestb_R835,
ffestb_R838, ffestb_R841, ffestb_R1102, ffestb_blockdata,
ffestb_R1212, ffestb_R1228, ffestb_V009, ffestb_module,
ffestb_R809, ffestb_R810, ffestb_R10014_, ffestb_R10015_,
ffestb_R10018_, ffestb_R1107, ffestb_R1202, ffestb_R12026_,
ffestb_S3P4, ffestb_V012, ffestb_V014, ffestb_V025, ffestb_V0255_,
ffestb_V020, ffestb_dimlist, ffestb_dummy, ffestb_R524,
ffestb_R547, ffestb_decl_chartype, ffestb_decl_dbltype,
ffestb_decl_gentype, ffestb_decl_recursive, ffestb_decl_entsp_2_,
ffestb_decl_func_, ffestb_V003, ffestb_V016, ffestb_V027,
ffestb_decl_R539): Likewise.
* stb.h (_ffestb_args_): Likewise.
* stc.c (ffestc_subr_binsrch_, ffestc_subr_is_present_,
ffestc_subr_speccmp_, ffestc_R904, ffestc_R907): Likewise.
diff -rup orig/egcs-CVS19990328/gcc/f/sta.c egcs-CVS19990328/gcc/f/sta.c
--- orig/egcs-CVS19990328/gcc/f/sta.c Tue Feb 16 10:20:34 1999
+++ egcs-CVS19990328/gcc/f/sta.c Mon Mar 29 12:34:21 1999
@@ -1701,7 +1701,7 @@ ffesta_ffebad_1p (ffebad errnum, ffelexT
}
void
-ffesta_ffebad_1sp (ffebad errnum, char *s, ffelexToken names_token,
+ffesta_ffebad_1sp (ffebad errnum, const char *s, ffelexToken names_token,
ffeTokenLength index, ffelexToken next_token)
{
ffewhereLine line;
@@ -1735,7 +1735,7 @@ ffesta_ffebad_1sp (ffebad errnum, char *
}
void
-ffesta_ffebad_1st (ffebad errnum, char *s, ffelexToken t)
+ffesta_ffebad_1st (ffebad errnum, const char *s, ffelexToken t)
{
if (ffesta_ffebad_start (errnum))
{
@@ -1764,7 +1764,7 @@ ffesta_ffebad_1t (ffebad errnum, ffelexT
}
void
-ffesta_ffebad_2st (ffebad errnum, char *s, ffelexToken t1, ffelexToken t2)
+ffesta_ffebad_2st (ffebad errnum, const char *s, ffelexToken t1, ffelexToken t2)
{
if (ffesta_ffebad_start (errnum))
{
diff -rup orig/egcs-CVS19990328/gcc/f/sta.h egcs-CVS19990328/gcc/f/sta.h
--- orig/egcs-CVS19990328/gcc/f/sta.h Tue Feb 16 10:20:34 1999
+++ egcs-CVS19990328/gcc/f/sta.h Mon Mar 29 12:34:12 1999
@@ -90,11 +90,11 @@ ffesymbol ffesta_sym_end_transition (ffe
ffesymbol ffesta_sym_exec_transition (ffesymbol s);
void ffesta_ffebad_1p (ffebad msg, ffelexToken names_token,
ffeTokenLength index, ffelexToken next_token);
-void ffesta_ffebad_1sp (ffebad msg, char *s, ffelexToken names_token,
+void ffesta_ffebad_1sp (ffebad msg, const char *s, ffelexToken names_token,
ffeTokenLength index, ffelexToken next_token);
-void ffesta_ffebad_1st (ffebad msg, char *s, ffelexToken t);
+void ffesta_ffebad_1st (ffebad msg, const char *s, ffelexToken t);
void ffesta_ffebad_1t (ffebad msg, ffelexToken t);
-void ffesta_ffebad_2st (ffebad msg, char *s, ffelexToken t1, ffelexToken t2);
+void ffesta_ffebad_2st (ffebad msg, const char *s, ffelexToken t1, ffelexToken t2);
void ffesta_ffebad_2t (ffebad msg, ffelexToken t1, ffelexToken t2);
ffelexHandler ffesta_zero (ffelexToken t);
ffelexHandler ffesta_two (ffelexToken first, ffelexToken second);
diff -rup orig/egcs-CVS19990328/gcc/f/stb.c egcs-CVS19990328/gcc/f/stb.c
--- orig/egcs-CVS19990328/gcc/f/stb.c Tue Feb 16 10:20:57 1999
+++ egcs-CVS19990328/gcc/f/stb.c Mon Mar 29 12:41:56 1999
@@ -404,7 +404,7 @@ union ffestb_local_u_
dimlist;
struct
{
- char *badname;
+ const char *badname;
ffestrFirst first_kw;
bool is_subr;
}
@@ -421,7 +421,7 @@ union ffestb_local_u_
ffesttTokenList toklist;/* For ambiguity resolution. */
ffesttImpList imps; /* List of IMPLICIT letters. */
ffelexHandler imp_handler; /* Call if paren list wasn't letters. */
- char *badname;
+ const char *badname;
ffestrOther kw; /* INTENT(IN/OUT/INOUT). */
ffestpType type;
bool parameter; /* If PARAMETER attribute seen (governs =expr
@@ -1859,7 +1859,7 @@ ffelexHandler
ffestb_do (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffelexHandler next;
ffelexToken nt;
ffestrSecond kw;
@@ -2033,7 +2033,7 @@ ffelexHandler
ffestb_dowhile (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
ffelexHandler next;
ffelexToken nt;
@@ -2507,7 +2507,7 @@ ffelexHandler
ffestb_else (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -2600,7 +2600,7 @@ ffelexHandler
ffestb_elsexyz (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -2787,7 +2787,7 @@ static ffelexHandler
ffestb_else3_ (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffelex_set_names (FALSE);
@@ -3013,7 +3013,7 @@ ffelexHandler
ffestb_endxyz (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -3319,7 +3319,7 @@ ffelexHandler
ffestb_goto (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffelexHandler next;
ffelexToken nt;
@@ -4152,7 +4152,7 @@ ffestb_let (ffelexToken t)
ffelexHandler next;
bool vxtparam; /* TRUE if it might really be a VXT PARAMETER
stmt. */
- unsigned char *p;
+ unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -4292,7 +4292,7 @@ ffelexHandler
ffestb_type (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -4376,7 +4376,7 @@ static ffelexHandler
ffestb_type1_ (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
ffelex_set_names (FALSE);
@@ -4537,7 +4537,7 @@ ffelexHandler
ffestb_varlist (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffelexToken nt;
ffelexHandler next;
@@ -5215,7 +5215,7 @@ ffestb_varlist6_ (ffelexToken t)
ffelexHandler
ffestb_R423B (ffelexToken t)
{
- char *p;
+ const char *p;
ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0]))
@@ -5284,7 +5284,7 @@ ffelexHandler
ffestb_R522 (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffelexToken nt;
ffelexHandler next;
@@ -5528,7 +5528,7 @@ ffestb_R5224_ (ffelexToken t)
ffelexHandler
ffestb_R528 (ffelexToken t)
{
- unsigned char *p;
+ unsigned const char *p;
ffeTokenLength i;
ffelexToken nt;
ffelexHandler next;
@@ -6005,7 +6005,7 @@ ffestb_R5373_ (ffelexToken t)
ffelexHandler
ffestb_R542 (ffelexToken t)
{
- char *p;
+ const char *p;
ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0]))
@@ -6419,7 +6419,7 @@ ffelexHandler
ffestb_R834 (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -6534,7 +6534,7 @@ ffelexHandler
ffestb_R835 (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -6648,7 +6648,7 @@ ffestb_R8351_ (ffelexToken t)
ffelexHandler
ffestb_R838 (ffelexToken t)
{
- unsigned char *p;
+ unsigned const char *p;
ffeTokenLength i;
ffelexHandler next;
ffelexToken et; /* First token in target. */
@@ -7073,7 +7073,7 @@ ffestb_R8407_ (ffelexToken t)
ffelexHandler
ffestb_R841 (ffelexToken t)
{
- char *p;
+ const char *p;
ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0]))
@@ -7141,7 +7141,7 @@ ffelexHandler
ffestb_R1102 (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -7293,7 +7293,7 @@ ffelexHandler
ffestb_blockdata (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -7436,7 +7436,7 @@ ffelexHandler
ffestb_R1212 (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffelexHandler next;
ffelexToken nt;
@@ -7675,7 +7675,7 @@ ffestb_R12271_ (ffelexToken ft, ffebld e
ffelexHandler
ffestb_R1228 (ffelexToken t)
{
- char *p;
+ const char *p;
ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0]))
@@ -7744,7 +7744,7 @@ bad_i: /* :::::::::::::::::::: */
ffelexHandler
ffestb_V009 (ffelexToken t)
{
- char *p;
+ const char *p;
ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0]))
@@ -8156,7 +8156,7 @@ ffelexHandler
ffestb_module (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
ffelexToken nt;
ffelexToken mt; /* Name in MODULE PROCEDUREname, i.e.
includes "PROCEDURE". */
@@ -8429,7 +8429,7 @@ ffelexHandler
ffestb_R809 (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -8630,7 +8630,7 @@ ffelexHandler
ffestb_R810 (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -9185,7 +9185,7 @@ ffestb_R10014_ (ffelexToken t)
{
ffesttFormatList f;
ffeTokenLength i;
- char *p;
+ const char *p;
ffestrFormat kw;
ffelex_set_expecting_hollerith (0, '\0',
@@ -9814,7 +9814,7 @@ ffestb_R10015_ (ffelexToken t)
bool split_pea; /* New NAMES requires splitting kP from new
edit desc. */
ffestrFormat kw;
- char *p;
+ const char *p;
ffeTokenLength i;
switch (ffelex_token_type (t))
@@ -10191,7 +10191,7 @@ static ffelexHandler
ffestb_R10018_ (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
switch (ffelex_token_type (t))
{
@@ -10985,7 +10985,7 @@ ffelexHandler
ffestb_R1107 (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -11431,7 +11431,7 @@ ffelexHandler
ffestb_R1202 (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -11822,7 +11822,7 @@ ffestb_R12025_ (ffelexToken t)
static ffelexHandler
ffestb_R12026_ (ffelexToken t)
{
- char *p;
+ const char *p;
switch (ffelex_token_type (t))
{
@@ -11965,7 +11965,7 @@ ffelexHandler
ffestb_S3P4 (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
ffelexHandler next;
ffelexToken nt;
ffelexToken ut;
@@ -12097,7 +12097,7 @@ ffestb_S3P41_ (ffelexToken ft, ffebld ex
ffelexHandler
ffestb_V012 (ffelexToken t)
{
- char *p;
+ const char *p;
ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0]))
@@ -12166,7 +12166,7 @@ ffelexHandler
ffestb_V014 (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffelexToken nt;
ffelexHandler next;
@@ -12400,7 +12400,7 @@ ffelexHandler
ffestb_V025 (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
ffelexToken nt;
ffelexHandler next;
@@ -12596,7 +12596,7 @@ ffestb_V0254_ (ffelexToken ft, ffebld ex
static ffelexHandler
ffestb_V0255_ (ffelexToken t)
{
- char *p;
+ const char *p;
switch (ffelex_token_type (t))
{
@@ -17910,7 +17910,7 @@ ffelexHandler
ffestb_V020 (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
ffelexHandler next;
ffestpTypeIx ix;
@@ -18846,7 +18846,7 @@ ffelexHandler
ffestb_dimlist (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
ffelexToken nt;
ffelexHandler next;
@@ -19400,7 +19400,7 @@ ffelexHandler
ffestb_dummy (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
switch (ffelex_token_type (ffesta_tokens[0]))
{
@@ -19619,7 +19619,7 @@ ffelexHandler
ffestb_R524 (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffelexToken nt;
ffelexHandler next;
@@ -19848,7 +19848,7 @@ ffelexHandler
ffestb_R547 (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffelexToken nt;
ffelexHandler next;
@@ -20486,7 +20486,7 @@ ffelexHandler
ffestb_decl_chartype (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffestb_local_.decl.type = FFESTP_typeCHARACTER;
ffestb_local_.decl.recursive = NULL;
@@ -20673,7 +20673,7 @@ ffelexHandler
ffestb_decl_dbltype (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffestb_local_.decl.type = ffestb_args.decl.type;
ffestb_local_.decl.recursive = NULL;
@@ -20864,7 +20864,7 @@ ffelexHandler
ffestb_decl_gentype (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffestb_local_.decl.type = ffestb_args.decl.type;
ffestb_local_.decl.recursive = NULL;
@@ -21010,7 +21010,7 @@ ffelexHandler
ffestb_decl_recursive (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
ffelexToken nt;
ffelexToken ot;
ffelexHandler next;
@@ -22668,7 +22668,7 @@ ffestb_decl_entsp_2_ (ffelexToken t)
{
ffelexToken nt;
bool asterisk_ok;
- unsigned char *p;
+ unsigned const char *p;
ffeTokenLength i;
switch (ffelex_token_type (t))
@@ -23095,7 +23095,7 @@ ffestb_decl_entsp_8_ (ffelexToken t)
static ffelexHandler
ffestb_decl_func_ (ffelexToken t)
{
- char *p;
+ const char *p;
ffeTokenLength i;
ffelex_set_names (FALSE);
@@ -23573,7 +23573,7 @@ ffelexHandler
ffestb_V003 (ffelexToken t)
{
ffeTokenLength i;
- char *p;
+ const char *p;
ffelexToken nt;
ffelexHandler next;
@@ -23889,7 +23889,7 @@ bad: /* :::::::::::::::::::: */
ffelexHandler
ffestb_V016 (ffelexToken t)
{
- char *p;
+ const char *p;
ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0]))
@@ -24157,7 +24157,7 @@ ffestb_V0166_ (ffelexToken t)
ffelexHandler
ffestb_V027 (ffelexToken t)
{
- unsigned char *p;
+ unsigned const char *p;
ffeTokenLength i;
switch (ffelex_token_type (ffesta_tokens[0]))
@@ -24337,7 +24337,7 @@ ffelexHandler
ffestb_decl_R539 (ffelexToken t)
{
ffeTokenLength i;
- unsigned char *p;
+ unsigned const char *p;
ffelexToken nt;
ffestrSecond kw;
diff -rup orig/egcs-CVS19990328/gcc/f/stb.h egcs-CVS19990328/gcc/f/stb.h
--- orig/egcs-CVS19990328/gcc/f/stb.h Tue Feb 16 10:20:58 1999
+++ egcs-CVS19990328/gcc/f/stb.h Mon Mar 29 12:37:33 1999
@@ -50,7 +50,7 @@ struct _ffestb_args_
{
struct
{
- char *badname;
+ const char *badname;
ffeTokenLength len; /* Length of "ENTRY/FUNCTION/SUBROUTINE". */
bool is_subr; /* TRUE if SUBROUTINE or if ENTRY within
SUBROUTINE. */
@@ -58,7 +58,7 @@ struct _ffestb_args_
dummy;
struct
{
- char *badname;
+ const char *badname;
ffeTokenLength len; /* Length of
"BACKSPACE/ENDFILE/REWIND/UNLOCK". */
}
@@ -82,7 +82,7 @@ struct _ffestb_args_
#if FFESTR_F90
struct
{
- char *badname;
+ const char *badname;
ffeTokenLength len; /* Length of "ALLOCATE/DEALLOCATE". */
ffeexprContext ctx; /* Either ALLOCATE or DEALLOCATE. */
}
@@ -90,7 +90,7 @@ struct _ffestb_args_
#endif
struct
{
- char *badname;
+ const char *badname;
ffeTokenLength len; /* Length of
"EXTERNAL/INTENT/INTRINSIC/OPTIONAL/PUBLIC/
PRIVATE". */
@@ -99,7 +99,7 @@ struct _ffestb_args_
#if FFESTR_VXT
struct
{
- char *badname;
+ const char *badname;
ffeTokenLength len; /* Length of "ENCODE/DECODE". */
}
vxtcode;
@@ -107,14 +107,14 @@ struct _ffestb_args_
#if FFESTR_F90
struct
{
- char *badname;
+ const char *badname;
ffeTokenLength len; /* Length of "ALLOCATABLE/POINTER/TARGET". */
}
dimlist;
#endif
struct
{
- char *badname;
+ const char *badname;
ffeTokenLength len; /* Length of "DIMENSION/VIRTUAL". */
}
R524;
diff -rup orig/egcs-CVS19990328/gcc/f/stc.c egcs-CVS19990328/gcc/f/stc.c
--- orig/egcs-CVS19990328/gcc/f/stc.c Tue Feb 16 10:21:13 1999
+++ egcs-CVS19990328/gcc/f/stc.c Mon Mar 29 13:48:47 1999
@@ -339,14 +339,14 @@ static void ffestc_shriek_where_ (bool o
#if FFESTR_F90
static void ffestc_shriek_wherethen_ (bool ok);
#endif
-static int ffestc_subr_binsrch_ (char **list, int size, ffestpFile *spec,
- char *whine);
+static int ffestc_subr_binsrch_ (const char **list, int size, ffestpFile *spec,
+ const char *whine);
static ffestvFormat ffestc_subr_format_ (ffestpFile *spec);
static bool ffestc_subr_is_branch_ (ffestpFile *spec);
static bool ffestc_subr_is_format_ (ffestpFile *spec);
-static bool ffestc_subr_is_present_ (char *name, ffestpFile *spec);
-static int ffestc_subr_speccmp_ (char *string, ffestpFile *spec,
- char **target, int *length);
+static bool ffestc_subr_is_present_ (const char *name, ffestpFile *spec);
+static int ffestc_subr_speccmp_ (const char *string, ffestpFile *spec,
+ const char **target, int *length);
static ffestvUnit ffestc_subr_unit_ (ffestpFile *spec);
static void ffestc_try_shriek_do_ (void);
@@ -5044,14 +5044,14 @@ ffestc_shriek_wherethen_ (bool ok)
using "etc" as the pick-one-of-these string. */
static int
-ffestc_subr_binsrch_ (char **list, int size, ffestpFile *spec, char *whine)
+ffestc_subr_binsrch_ (const char **list, int size, ffestpFile *spec, const char *whine)
{
int lowest_tested;
int highest_tested;
int halfway;
int offset;
int c;
- char *str;
+ const char *str;
int len;
if (size == 0)
@@ -5186,7 +5186,7 @@ ffestc_subr_is_format_ (ffestpFile *spec
ffestc_subr_is_present_("SPECIFIER",&specifier); */
static bool
-ffestc_subr_is_present_ (char *name, ffestpFile *spec)
+ffestc_subr_is_present_ (const char *name, ffestpFile *spec)
{
if (spec->kw_or_val_present)
{
@@ -5219,7 +5219,7 @@ ffestc_subr_is_present_ (char *name, ffe
0 if 2 is returned, the length of the constant string value otherwise. */
static int
-ffestc_subr_speccmp_ (char *string, ffestpFile *spec, char **target,
+ffestc_subr_speccmp_ (const char *string, ffestpFile *spec, const char **target,
int *length)
{
ffebldConstant c;
@@ -10198,7 +10198,7 @@ ffestc_R904 ()
{
int i;
int expect_file;
- char *status_strs[]
+ const char *status_strs[]
=
{
"New",
@@ -10207,7 +10207,7 @@ ffestc_R904 ()
"Scratch",
"Unknown"
};
- char *access_strs[]
+ const char *access_strs[]
=
{
"Append",
@@ -10215,20 +10215,20 @@ ffestc_R904 ()
"Keyed",
"Sequential"
};
- char *blank_strs[]
+ const char *blank_strs[]
=
{
"Null",
"Zero"
};
- char *carriagecontrol_strs[]
+ const char *carriagecontrol_strs[]
=
{
"Fortran",
"List",
"None"
};
- char *dispose_strs[]
+ const char *dispose_strs[]
=
{
"Delete",
@@ -10239,41 +10239,41 @@ ffestc_R904 ()
"Submit",
"Submit/Delete"
};
- char *form_strs[]
+ const char *form_strs[]
=
{
"Formatted",
"Unformatted"
};
- char *organization_strs[]
+ const char *organization_strs[]
=
{
"Indexed",
"Relative",
"Sequential"
};
- char *position_strs[]
+ const char *position_strs[]
=
{
"Append",
"AsIs",
"Rewind"
};
- char *action_strs[]
+ const char *action_strs[]
=
{
"Read",
"ReadWrite",
"Write"
};
- char *delim_strs[]
+ const char *delim_strs[]
=
{
"Apostrophe",
"None",
"Quote"
};
- char *recordtype_strs[]
+ const char *recordtype_strs[]
=
{
"Fixed",
@@ -10283,7 +10283,7 @@ ffestc_R904 ()
"Stream_LF",
"Variable"
};
- char *pad_strs[]
+ const char *pad_strs[]
=
{
"No",
@@ -10453,7 +10453,7 @@ ffestc_R904 ()
void
ffestc_R907 ()
{
- char *status_strs[]
+ const char *status_strs[]
=
{
"Delete",