summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/dynamic_dispatch_9.f03
blob: bf6a3d5587027150aa017eb37c3b2b78f85a4058 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
! { dg-do run }
!
! [OOP] Ensure that different specifc interfaces are
! handled properly by dynamic dispatch.
!
! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
!
module m

 type :: t
 contains
  procedure :: a
  generic :: gen => a
 end type

 type,extends(t) :: t2
 contains
  procedure :: b
  generic :: gen => b
 end type

contains

  real function a(ct,x)
    class(t) :: ct
    real :: x
    a=2*x
  end function

  integer function b(ct,x)
    class(t2) :: ct
    integer :: x
    b=3*x
  end function

end


 use m
 class(t), allocatable :: o1
 type (t) :: t1
 class(t2), allocatable :: o2

 allocate(o1)
 allocate(o2)

 if (t1%gen(2.0) .ne. o1%gen(2.0)) call abort
 if (t1%gen(2.0) .ne. o2%gen(2.0)) call abort
 if (o2%gen(3) .ne. 9) call abort

end

! { dg-final { cleanup-modules "m" } }