diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2008-06-02 23:50:23 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2008-06-02 23:50:23 +0200 |
| commit | e62532afd777edea4d3eeb1963060f75952319ca (patch) | |
| tree | 9408c03560055917d4f9cd80a0cb49ed50dc1761 /gcc/fortran/decl.c | |
| parent | 80d7287f402d124caef566cbcbe023ebfab62f28 (diff) | |
| download | gcc-e62532afd777edea4d3eeb1963060f75952319ca.zip gcc-e62532afd777edea4d3eeb1963060f75952319ca.tar.gz gcc-e62532afd777edea4d3eeb1963060f75952319ca.tar.bz2 | |
re PR fortran/36361 (attribute declaration outside of INTERFACE body)
2008-06-02 Janus Weil <janus@gcc.gnu.org>
PR fortran/36361
* symbol.c (gfc_add_allocatable,gfc_add_dimension,
gfc_add_explicit_interface): Added checks.
* decl.c (attr_decl1): Added missing "var_locus".
* parse.c (parse_interface): Checking for errors.
2008-06-02 Janus Weil <janus@gcc.gnu.org>
PR fortran/36361
* gfortran.dg/interface_24.f90: New.
From-SVN: r136296
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index f6884f2..ea87c21 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -5216,7 +5216,7 @@ attr_decl1 (void) /* Update symbol table. DIMENSION attribute is set in gfc_set_array_spec(). */ if (current_attr.dimension == 0 - && gfc_copy_attr (&sym->attr, ¤t_attr, NULL) == FAILURE) + && gfc_copy_attr (&sym->attr, ¤t_attr, &var_locus) == FAILURE) { m = MATCH_ERROR; goto cleanup; |