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