compile_command_destroy Subroutine

public elemental subroutine compile_command_destroy(self)

Cleanup compile command

Type Bound

compile_command_t

Arguments

Type IntentOptional Attributes Name
class(compile_command_t), intent(inout) :: self

Instance of the serializable object

Source Code

    elemental subroutine compile_command_destroy(self)
    
        !> Instance of the serializable object
        class(compile_command_t), intent(inout) :: self    
        
        if (allocated(self%directory%s))deallocate(self%directory%s)
        if (allocated(self%arguments))deallocate(self%arguments)
        if (allocated(self%file%s))deallocate(self%file%s)
    
    end subroutine compile_command_destroy