Commit 3c72292f authored by Henderson, Shane's avatar Henderson, Shane
Browse files

Merge branch 'hotfix_impure_elemental_clear' into 'master' 

Make an elemental proceure Pure for intel

See merge request https://code.ornl.gov/futility/Futility/-/merge_requests/423
parents 1cd11bc6 b137192b

src/Geom_Shape.f90

+2 −2
Original line number Diff line number Diff line
@@ -96,7 +96,7 @@ ENDSUBROUTINE clear_ShapeType 
!> @param dealloc optional flag to deallocate the pointer to the ShapeType

!> object. Default is .TRUE.

!>

ELEMENTAL SUBROUTINE clear_ShapeTypePtrArray(this,dealloc)

IMPURE ELEMENTAL SUBROUTINE clear_ShapeTypePtrArray(this,dealloc)

  CLASS(ShapeTypePtrArray),INTENT(INOUT) :: this

  LOGICAL(SBK),INTENT(IN),OPTIONAL :: dealloc

  !