Skip to content

Commit

Permalink
Remove double destructor in template
Browse files Browse the repository at this point in the history
  • Loading branch information
krystophny committed Nov 26, 2024
1 parent 48ac4c6 commit 333bdf1
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions examples/issue235_allocatable_classes/f90wrap_myclass.f90
Original file line number Diff line number Diff line change
Expand Up @@ -35,7 +35,7 @@ subroutine f90wrap_myclass_t__set__val(this, f90wrap_val)
end subroutine f90wrap_myclass_t__set__val

subroutine f90wrap_myclass__myclass_destroy__binding__myclass_t(self)
use myclass, only: myclass_destroy, myclass_t
use myclass, only: myclass_t
implicit none

type myclass_t_wrapper_type
Expand All @@ -47,7 +47,6 @@ subroutine f90wrap_myclass__myclass_destroy__binding__myclass_t(self)
type(myclass_t_ptr_type) :: self_ptr
integer, intent(in), dimension(2) :: self
self_ptr = transfer(self, self_ptr)
call myclass_destroy(self=self_ptr%p%obj)
deallocate(self_ptr%p)
end subroutine f90wrap_myclass__myclass_destroy__binding__myclass_t

Expand Down

0 comments on commit 333bdf1

Please sign in to comment.