anchor.diff:      use ExternalTriangularGridExporterClass
       implicit none
       class(TriangularGridMerger) :: this
  -    type (ExternalTriangularGridExporter), dimension(:) :: extGridExporters
  +    type (ExternalTriangularGridExporter), dimension(:), intent(in) :: extGridExporters
   
       this%externalGridExporters = extGridExporters
   
  
positive.code:     use ErrorHandlingMod
      implicit none
      class(TriangularGridMerger) :: this
      character(charLen) :: fileWithoutExtension
  
      if (fileWithoutExtension == '') then
         call exception('file is empty', &
              __FILENAME__, __LINE__)
      end if
      this%filenameNode = fileWithoutExtension // '.node'
      this%filenamePoly = fileWithoutExtension // '.poly'
      
    end subroutine setFilename
  
    subroutine setIOUnits(this, ioUnitNode, ioUnitPoly)
  
negative.code:     use InternalTriangularGridExporterClass
      implicit none
      class(TriangularGridMerger) :: this
      type (InternalTriangularGridExporter), intent(in) :: intGridExporter
  
      this%internalGridExporter = intGridExporter
  
  