diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-03-03 20:59:58 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-03-03 20:59:58 +0000 |
| commit | 56342743ff951c0aac8b4f95b6005b33cbec4959 (patch) | |
| tree | 0f68e03d497580f633c28cc642826023040ba163 /gcc/fortran/module.c | |
| parent | 9b88f526a61b661b2c0432481bbc6ea18c49c039 (diff) | |
PR fortran/52313
* module.c (gfc_use_module): Improve error messages.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@184864 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 36ef4f8a088b..31d7de1e2560 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -6090,22 +6090,17 @@ gfc_use_module (gfc_use_list *module) parse_name (c); if ((start == 1 && strcmp (atom_name, "GFORTRAN") != 0) || (start == 2 && strcmp (atom_name, " module") != 0)) - gfc_fatal_error ("File '%s' opened at %C is not a GFORTRAN module " - "file", filename); + gfc_fatal_error ("File '%s' opened at %C is not a GNU Fortran" + " module file", filename); if (start == 3) { if (strcmp (atom_name, " version") != 0 || module_char () != ' ' - || parse_atom () != ATOM_STRING) - gfc_fatal_error ("Parse error when checking module version" - " for file '%s' opened at %C", filename); - - if (strcmp (atom_string, MOD_VERSION)) - { - gfc_fatal_error ("Wrong module version '%s' (expected '%s') " - "for file '%s' opened at %C", atom_string, - MOD_VERSION, filename); - } + || parse_atom () != ATOM_STRING + || strcmp (atom_string, MOD_VERSION)) + gfc_fatal_error ("Cannot read module file '%s' opened at %C," + " because it was created by an older" + " version of GNU Fortran", filename); free (atom_string); } |