mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-06 02:10:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/50960 ([OOP] vtables not marked as constant)

Browse Source 
2011-11-09  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/50960
	* gfortran.dg/typebound_call_22.f03: New test case.

From-SVN: r181208
This commit is contained in:
Janus Weil 2011-11-09 16:56:53 +01:00
parent ed10039e8b
commit 560bb0136f
2 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2011-11-09 Janus Weil <janus@gcc.gnu.org>
PR fortran/50960
* gfortran.dg/typebound_call_22.f03: New test case.
2011-11-09 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/50016

32
gcc/testsuite/gfortran.dg/typebound_call_22.f03 Normal file
View File

@ -0,0 +1,32 @@
! { dg-do compile }
! { dg-options "-fdump-tree-optimized -O" }
!
! PR 50960: [OOP] vtables not marked as constant
!
! This test case checks whether the type-bound call to "x%bar"
! is optimized into a static call to "base".
!
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
module m
type t
contains
procedure, nopass :: bar => base
end type
contains
subroutine base()
write(*,*) 'base'
end subroutine
end module
program test
use m
class(t), allocatable :: x
allocate (t :: x)
call x%bar ()
end program
! { dg-final { scan-tree-dump-times "base \\(\\);" 1 "optimized" } }
! { dg-final { cleanup-tree-dump "optimized" } }
! { dg-final { cleanup-modules "m" } }