Fix compilation of ftlSharedPtr with derived types

SCM-NV · Aug 21, 2019 · ae537ca · ae537ca
1 parent 1dd1bb6
commit ae537ca
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/ftlSharedPtr.F90_template b/src/ftlSharedPtr.F90_template
@@ -197,8 +197,8 @@ contains
  class(CAT(ftlSharedPtr,FTL_TEMPLATE_TYPE_NAME)), intent(inout) :: self
  type (CAT(ftlSharedPtr,FTL_TEMPLATE_TYPE_NAME)), intent(inout) :: other
 
- FTL_TEMPLATE_TYPE, pointer :: tmpValue
- integer , pointer :: tmpRefcount
+ FTL_TEMPLATE_TYPE_WRAP, pointer :: tmpValue
+ integer  , pointer :: tmpRefcount
 
  tmpValue => self%value
  self%value => other%value