diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2013-10-15 08:20:01 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-10-15 08:20:01 +0200 |
| commit | a72895355555ca8e086831251b2276ea6cd502f7 (patch) | |
| tree | b0903b00da6b280792f799b6c0f2d4689533b141 | |
| parent | 910ddd1808e57303949902384859971e16c19c67 (diff) | |
| download | gcc-a72895355555ca8e086831251b2276ea6cd502f7.zip gcc-a72895355555ca8e086831251b2276ea6cd502f7.tar.gz gcc-a72895355555ca8e086831251b2276ea6cd502f7.tar.bz2 | |
Add missing file from previous commit r203586:
2013-10-15 Tobias Burnus <burnus@net-b.de>
PR fortran/58652
* gfortran.dg/unlimited_polymorphic_11.f90: New.
From-SVN: r203587
| -rw-r--r-- | gcc/testsuite/gfortran.dg/unlimited_polymorphic_11.f90 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_11.f90 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_11.f90 new file mode 100644 index 0000000..5b73b32 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_11.f90 @@ -0,0 +1,14 @@ +! { dg-do compile } +! { dg-options "-fdump-tree-original" } +! +! PR fortran/58652 +! +! Contributed by Vladimir Fuka +! + class(*),allocatable :: a + class(*),allocatable :: c + call move_alloc(a,c) +end + +! { dg-final { scan-tree-dump "\\(struct __vtype__STAR \\*\\) c._vptr = \\(struct __vtype__STAR \\*\\) a._vptr;" "original" } } +! { dg-final { cleanup-tree-dump "original" } } |