diff options
author | Janus Weil <janus@gcc.gnu.org> | 2011-06-17 22:03:04 +0200 |
---|---|---|
committer | Janus Weil <janus@gcc.gnu.org> | 2011-06-17 22:03:04 +0200 |
commit | b53abf71d275c3642dd65d4fdc98a0270fc5ee3c (patch) | |
tree | a4e3b9eae431c4fad9819921b6b9f7054d046fe7 /gcc | |
parent | f64a6f1ee58f3cffc81f97af23f8c0ea6d9307fc (diff) | |
download | gcc-b53abf71d275c3642dd65d4fdc98a0270fc5ee3c.zip gcc-b53abf71d275c3642dd65d4fdc98a0270fc5ee3c.tar.gz gcc-b53abf71d275c3642dd65d4fdc98a0270fc5ee3c.tar.bz2 |
re PR fortran/48699 ([OOP] MOVE_ALLOC inside SELECT TYPE)
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.
From-SVN: r175151
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/fortran/check.c | 4 | ||||
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/move_alloc_5.f90 | 24 |
4 files changed, 39 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e042821..d7c5981 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 1178967..972b290 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; } diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8fe2a03..1adce47 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-06-17 Janus Weil <janus@gcc.gnu.org> + + PR fortran/48699 + * gfortran.dg/move_alloc_5.f90: New. + 2011-06-17 Hans-Peter Nilsson <hp@axis.com> PR rtl-optimization/48542 diff --git a/gcc/testsuite/gfortran.dg/move_alloc_5.f90 b/gcc/testsuite/gfortran.dg/move_alloc_5.f90 new file mode 100644 index 0000000..b2759de --- /dev/null +++ b/gcc/testsuite/gfortran.dg/move_alloc_5.f90 @@ -0,0 +1,24 @@ +! { dg-do run } +! +! PR 48699: [4.6/4.7 Regression] [OOP] MOVE_ALLOC inside SELECT TYPE +! +! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> + +program testmv1 + + type bar + end type + + type, extends(bar) :: bar2 + end type + + class(bar), allocatable :: sm + type(bar2), allocatable :: sm2 + + allocate (sm2) + call move_alloc (sm2,sm) + + if (allocated(sm2)) call abort() + if (.not. allocated(sm)) call abort() + +end program |