From e62532afd777edea4d3eeb1963060f75952319ca Mon Sep 17 00:00:00 2001 From: Janus Weil Date: Mon, 2 Jun 2008 23:50:23 +0200 Subject: re PR fortran/36361 (attribute declaration outside of INTERFACE body) 2008-06-02 Janus Weil 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 PR fortran/36361 * gfortran.dg/interface_24.f90: New. From-SVN: r136296 --- gcc/fortran/decl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/decl.c') 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; -- cgit v1.1