gcc/testsuite/gfortran.dg/class_22.f03


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

! { dg-do compile }
!
! PR 44212: [OOP] ICE when defining a pointer component before defining the class and calling a TBP then
!
! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>

module ice_module

  type :: B_type
     class(A_type),pointer :: A_comp
  end type B_type

  type :: A_type
  contains
     procedure :: A_proc
  end type A_type

contains

  subroutine A_proc(this)
    class(A_type),target,intent(inout) :: this
  end subroutine A_proc

  subroutine ice_proc(this)
    class(A_type) :: this
    call this%A_proc()
  end subroutine ice_proc

end module ice_module

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