git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Burnus 2013-10-15 08:20:01 +02:00
parent 910ddd1808
commit a728953555
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gcc/testsuite/gfortran.dg/unlimited_polymorphic_11.f90 Normal file
View File

@ -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" } }