deallocate_file Subroutine

private pure elemental subroutine deallocate_file(this)

Type Bound

Translation

Arguments

Type IntentOptional Attributes Name
class(Translation), intent(inout) :: this

Called by

proc~~deallocate_file~2~~CalledByGraph proc~deallocate_file~2 foropenai_Translation::Translation%deallocate_file proc~deallocate_translation foropenai_Translation::Translation%deallocate_Translation proc~deallocate_translation->proc~deallocate_file~2 program~test_translation test_Translation program~test_translation->proc~deallocate_translation

Source Code

   elemental pure subroutine deallocate_file(this)
      class(Translation), intent(inout) :: this
      if (allocated(this%file)) deallocate(this%file)
   end subroutine deallocate_file