Add deallocate(this%comment) in the finalizer.

gha3mi · May 7, 2024 · da0d8e4 · da0d8e4
1 parent 888d561
commit da0d8e4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/pnm.f90 b/src/pnm.f90
@@ -629,10 +629,11 @@ end function get_format
    !===============================================================================
    !> author: Seyed Ali Ghasemi
    !> license: BSD 3-Clause
-   !> Deallocates memory for the pixels of the PNM image.
+   !> Deallocates memory for the PNM image.
    elemental pure subroutine deallocate_pnm(this)
       class(format_pnm), intent(inout)    :: this
       if (allocated(this%pixels)) deallocate(this%pixels)
+      if (allocated(this%comment)) deallocate(this%comment)
    end subroutine deallocate_pnm
    !===============================================================================