diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2010-08-29 11:56:45 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2010-08-29 11:56:45 +0200 |
| commit | f08f8b6a53374bede927c5839e6e8dc6353ef343 (patch) | |
| tree | b00efb0e28896d80ca5a1cef1c9540f8e89ef69d /gcc/fortran | |
| parent | ae04c688c0621ffbd695e8ef3121fe6087b7885b (diff) | |
| download | gcc-f08f8b6a53374bede927c5839e6e8dc6353ef343.zip gcc-f08f8b6a53374bede927c5839e6e8dc6353ef343.tar.gz gcc-f08f8b6a53374bede927c5839e6e8dc6353ef343.tar.bz2 | |
re PR fortran/45439 ([OOP] SELECT TYPE bogus complaint about INTENT)
2010-08-29 Janus Weil <janus@gcc.gnu.org>
PR fortran/45439
* match.c (gfc_match_select_type): Give the associate-name the
FL_VARIABLE attribute.
2010-08-29 Janus Weil <janus@gcc.gnu.org>
PR fortran/45439
* gfortran.dg/select_type_16.f03: New.
From-SVN: r163626
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/fortran/match.c | 1 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 669d9b4..9dab697 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,4 +1,10 @@ -2010-07-21 Steven G. Kargl <kargl@gcc.gnu.org> +2010-08-29 Janus Weil <janus@gcc.gnu.org> + + PR fortran/45439 + * match.c (gfc_match_select_type): Give the associate-name the + FL_VARIABLE attribute. + +2010-07-28 Steven G. Kargl <kargl@gcc.gnu.org> * simplify.c (gfc_simplify_bessel_n2): Fix indention and argument type. diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 47cd8d6..14f2417 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -4532,6 +4532,7 @@ gfc_match_select_type (void) expr1->symtree->n.sym->attr.untyped = 1; else expr1->symtree->n.sym->ts = expr2->ts; + expr1->symtree->n.sym->attr.flavor = FL_VARIABLE; expr1->symtree->n.sym->attr.referenced = 1; expr1->symtree->n.sym->attr.class_ok = 1; } |