anchor.diff:       call printBox(my_box)
        call destructBox(my_box)
   
  +     my_colour_box = colourBox()
  +     call setColour(my_colour_box,'Red')
  +     call setBoxHeight(my_colour_box,5)
  +     !call printColourBox(my_colour_box)
  +
   end program box_test
  
positive.code:      end subroutine destructBox
  end module boxClass
  
  program box_test
       use boxClass
       implicit none
  
       type(Box) :: my_box
       my_box = Box(2,3,4)
       call printBox(my_box)
       call setBoxLength(my_box, 5.0)
  
negative.code:      private
       public :: Box, printBox, setBoxLength, setBoxHeight, setBoxBreadth, destructBox
       ! Using an implicit constructor
       type :: Box
           real, allocatable :: length
           real, allocatable :: breadth
           real, allocatable :: height
           procedure,nopass,non_overridable :: SetHight => setBoxHeight
       end type Box
  contains
       subroutine printBox(this)
  