Commit b137192b authored by aarograh's avatar aarograh Committed by Henderson, Shane
Browse files

Make an elemental proceure Pure for intel

Squash branch 'hotfix_impure_elemental_clear' into 'master'

* Make an elemental proceure Pure for intel

Picky picky intel...

**Developer Checklist:**
- [x] Have you done a self-review after creating the merge request?
- [x] Have you filled in the Merge Request information (title, description) thoroughly?
- [x] Have you updated the relevant tickets (if this MR is linked to any VERA-dev tickets)?
- [x] Have you addressed all suggested feedback and commented on it to let the reviewer know? (Do not resolve discussions that the reviewer started)

**Reviewer Checklist:**
- [x] Have you confirmed all discussions were adequately addressed and resolved them all?
- [x] Does it conform to formatting guidelines?
- [x] Are there adequate and clear comments?
- [x] Is the design clean and sensible?
- [x] Are the changes optimal/efficient?
- [x] Were sufficient DBC checks added?
- [x] Are there unit tests? (if necessary)
- [x] Is the MR description clear, including a link to the VERA-Dev issue if appropriate?

**PSM Checklist**
- [x] Have you confirmed that all discussions were addressed, or that follow-on issues have been created for them?
- [x] Have you confirmed sufficient testing was conducted?
- [x] Does this impact other repositories?
- [x] Does the MR have an adequate description?
- [x] If the MR has multiple commits, did you set the MR to squash merge?

See merge request https://code.ornl.gov/futility/Futility/-/merge_requests/423
parent 255516c2
Loading
Loading
Loading
Loading
+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
  !