diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-04 01:08:48 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-04 01:08:48 +0000 |
| commit | 2305fa31840fb5300228837afda1039ed825eebe (patch) | |
| tree | 27e9aa18518d080c17965ae93f7bbbccaab9f703 /gcc/fortran/decl.c | |
| parent | f01d40db560f6b6dcb4737a82da71438e995cb10 (diff) | |
| download | gcc-2305fa31840fb5300228837afda1039ed825eebe.zip gcc-2305fa31840fb5300228837afda1039ed825eebe.tar.gz gcc-2305fa31840fb5300228837afda1039ed825eebe.tar.bz2 | |
re PR fortran/32545 (Give an (compile time) error not a warning for wrong edit format statements)
2007-07-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/32545
* io.c (check_format): Always call gfc_error for errors.
(check_format_string): Change type of this function to try and
return the result of check_format.
(check_io_constraints): Return MATCH_ERROR if check_format_string
returns FAILURE.
2007-07-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/32612
* decl.c (get_proc_name): Include attr->mod_proc in check for error.
From-SVN: r126295
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 24f1a3d..b3bbe75 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -708,7 +708,8 @@ get_proc_name (const char *name, gfc_symbol **result, bool module_fcn_entry) /* Trap a procedure with a name the same as interface in the encompassing scope. */ if (sym->attr.generic != 0 - && (sym->attr.subroutine || sym->attr.function)) + && (sym->attr.subroutine || sym->attr.function) + && !sym->attr.mod_proc) gfc_error_now ("Name '%s' at %C is already defined" " as a generic interface at %L", name, &sym->declared_at); |