diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2013-12-14 18:47:22 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2013-12-14 18:47:22 +0100 |
| commit | 156c01601daa73cb19b7a77b630ad49424c9bcf7 (patch) | |
| tree | fbfb790d7d79f144ac1f5b84041533f3bf7565d9 /gcc/fortran | |
| parent | 4eca178ac8c3eaad61e3a8f8401b1e1984153387 (diff) | |
| download | gcc-156c01601daa73cb19b7a77b630ad49424c9bcf7.zip gcc-156c01601daa73cb19b7a77b630ad49424c9bcf7.tar.gz gcc-156c01601daa73cb19b7a77b630ad49424c9bcf7.tar.bz2 | |
re PR fortran/59502 ([OOP] ICE on invalid on pointer assignment to non-pointer CLASS)
2013-12-14 Janus Weil <janus@gcc.gnu.org>
PR fortran/59502
* primary.c (gfc_match_varspec): Check for 'class_ok'.
2013-12-14 Janus Weil <janus@gcc.gnu.org>
PR fortran/59502
* gfortran.dg/class_57.f90: New.
From-SVN: r205990
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/primary.c | 5 |
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 197b890..9de1860 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2013-12-14 Janus Weil <janus@gcc.gnu.org> + PR fortran/59502 + * primary.c (gfc_match_varspec): Check for 'class_ok'. + +2013-12-14 Janus Weil <janus@gcc.gnu.org> + PR fortran/59450 * module.c (mio_expr): Handle type-bound function expressions. diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index c9a26b0..089ed42 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -2039,9 +2039,8 @@ gfc_match_varspec (gfc_expr *primary, int equiv_flag, bool sub_flag, if (m != MATCH_YES) return m; } - else if (component->ts.type == BT_CLASS - && CLASS_DATA (component)->as != NULL - && !component->attr.proc_pointer) + else if (component->ts.type == BT_CLASS && component->attr.class_ok + && CLASS_DATA (component)->as && !component->attr.proc_pointer) { tail = extend_ref (primary, tail); tail->type = REF_ARRAY; |