diff options
| author | H.J. Lu <hongjiu.lu@intel.com> | 2010-07-23 19:37:40 +0000 |
|---|---|---|
| committer | H.J. Lu <hongjiu.lu@intel.com> | 2010-07-23 19:37:40 +0000 |
| commit | e59b0ef2e7a1fb44791d473ee416aeb01fcb169c (patch) | |
| tree | 437dca120093cc7b1f6debf6f6b31779526c7192 /gcc/testsuite/gfortran.dg/dynamic_dispatch_2.f03 | |
| parent | f25b023a0d9de6a6c1e1965d93ba6028cb03fc7d (diff) | |
| parent | 92ac755201aad4366eaff2b75b3239637bee3590 (diff) | |
Merged with trunk at revision 162480.ifunc
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/ifunc@162483 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/dynamic_dispatch_2.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dynamic_dispatch_2.f03 | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_2.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_2.f03 index 989a2e0d3f0..95ce8372325 100644 --- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_2.f03 +++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_2.f03 @@ -12,16 +12,14 @@ module m procedure, pass :: make_integer procedure, pass :: prod => i_m_j generic, public :: extract => real, make_integer - generic, public :: base_extract => real, make_integer end type t1 type, extends(t1) :: t2 integer :: j = 99 contains procedure, pass :: real => make_real2 - procedure, pass :: make_integer_2 + procedure, pass :: make_integer => make_integer_2 procedure, pass :: prod => i_m_j_2 - generic, public :: extract => real, make_integer_2 end type t2 contains subroutine make_real (arg, arg2) @@ -79,8 +77,6 @@ end module m if (i .ne. 42) call abort call a%extract (2, i) if (i .ne. 84) call abort - call a%base_extract (2, i) - if (i .ne. 84) call abort a => c ! extension in module call a%real(r) @@ -89,8 +85,6 @@ end module m if (i .ne. 99) call abort call a%extract (3, i) if (i .ne. 297) call abort - call a%base_extract (3, i) - if (i .ne. 126) call abort a => d ! extension in main call a%real(r) @@ -99,7 +93,5 @@ end module m if (i .ne. 42) call abort call a%extract (4, i) if (i .ne. 168) call abort - call a%extract (4, i) - if (i .ne. 168) call abort end ! { dg-final { cleanup-modules "m" } } |