diff options
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 5c574bb..ac572c8 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -5431,9 +5431,6 @@ use_iso_fortran_env_module (void) { local_name = NULL; - if ((gfc_option.allow_std & symbol[i].standard) == 0) - break; - for (u = gfc_rename_list; u; u = u->next) { if (strcmp (symbol[i].name, u->use_name) == 0) @@ -5444,6 +5441,13 @@ use_iso_fortran_env_module (void) } } + if (u && gfc_notify_std (symbol[i].standard, "The symbol '%s', " + "referrenced at %C, is not in the selected " + "standard", symbol[i].name) == FAILURE) + continue; + else if ((gfc_option.allow_std & symbol[i].standard) == 0) + continue; + if ((gfc_option.flag_default_integer || gfc_option.flag_default_real) && symbol[i].id == ISOFORTRANENV_NUMERIC_STORAGE_SIZE) gfc_warning_now ("Use of the NUMERIC_STORAGE_SIZE named constant " |