diff options
Diffstat (limited to 'libgfortran/runtime/string.c')
| -rw-r--r-- | libgfortran/runtime/string.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libgfortran/runtime/string.c b/libgfortran/runtime/string.c index d7963b7498b..00dfc298305 100644 --- a/libgfortran/runtime/string.c +++ b/libgfortran/runtime/string.c @@ -31,7 +31,7 @@ Boston, MA 02110-1301, USA. */ #include <string.h> #include "libgfortran.h" - +#include "../io/io.h" /* Compare a C-style string with a fortran style string in a case-insensitive manner. Used for decoding string options to various statements. Returns @@ -104,14 +104,14 @@ cf_strcpy (char *dest, int dest_len, const char *src) if no default is provided. */ int -find_option (const char *s1, int s1_len, const st_option * opts, - const char *error_message) +find_option (st_parameter_common *cmp, const char *s1, int s1_len, + const st_option * opts, const char *error_message) { for (; opts->name; opts++) if (compare0 (s1, s1_len, opts->name)) return opts->value; - generate_error (ERROR_BAD_OPTION, error_message); + generate_error (cmp, ERROR_BAD_OPTION, error_message); return -1; } |