diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-08-29 09:56:45 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-08-29 09:56:45 +0000 |
| commit | 04de375cb90fc1dbac6b886e56e8debbd6e3869e (patch) | |
| tree | b00efb0e28896d80ca5a1cef1c9540f8e89ef69d /gcc/fortran/match.c | |
| parent | 59804c58a3ee0e9adf453b5bec173d12e8714986 (diff) | |
| download | gcc-04de375cb90fc1dbac6b886e56e8debbd6e3869e.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163626 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 47cd8d6be93..14f2417e292 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; } |