diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-06-17 20:03:04 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-06-17 20:03:04 +0000 |
| commit | ce203676bca4a0b61052182ad63afe7989813d79 (patch) | |
| tree | a4e3b9eae431c4fad9819921b6b9f7054d046fe7 /gcc/fortran | |
| parent | dab866f9b5afc58f05be6ea553163865b7c5cabc (diff) | |
| download | gcc-ce203676bca4a0b61052182ad63afe7989813d79.tar.gz | |
2011-06-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/48699
* check.c (gfc_check_move_alloc): If 'TO' argument is polymorphic,
make sure the vtab is present.
2011-06-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/48699
* gfortran.dg/move_alloc_5.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@175151 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/check.c | 4 |
2 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e0428211dd7..d7c59819430 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2011-06-17 Janus Weil <janus@gcc.gnu.org> + + PR fortran/48699 + * check.c (gfc_check_move_alloc): If 'TO' argument is polymorphic, + make sure the vtab is present. + 2011-06-16 Janus Weil <janus@gcc.gnu.org> PR fortran/49074 diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 11789673115..972b290c987 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -2672,6 +2672,10 @@ gfc_check_move_alloc (gfc_expr *from, gfc_expr *to) return FAILURE; } + /* CLASS arguments: Make sure the vtab is present. */ + if (to->ts.type == BT_CLASS) + gfc_find_derived_vtab (from->ts.u.derived); + return SUCCESS; } |