Increase coverage

.typos.toml

@@ -1,4 +1,5 @@
 [default.extend-words]
 doub = "doub"
 INOUT = "INOUT"
+sav = "sav"
 

Source/FTObjects/FTDataClass.f90

@@ -71,6 +71,8 @@ Module FTDataClass
          PROCEDURE, PUBLIC :: initWithDataOfType
          PROCEDURE, PUBLIC :: storedData
          PROCEDURE, PUBLIC :: storedDataSize
+         PROCEDURE, PUBLIC :: storedDataType
+         PROCEDURE, PUBLIC :: dataIsOfType
          PROCEDURE, PUBLIC :: className => dataClassName
          FINAL             :: destructData
       END TYPE FTData
@@ -104,15 +106,15 @@ SUBROUTINE destructData(self)
          IMPLICIT NONE
          TYPE(FTData)  :: self
 
-         DEALLOCATE( self % dataStorage)
+         IF(ASSOCIATED(self % dataStorage)) DEALLOCATE( self % dataStorage)
 
       END SUBROUTINE destructData
 !
 !//////////////////////////////////////////////////////////////////////// 
 ! 
       SUBROUTINE releaseFTData(self)  
          IMPLICIT NONE
-         TYPE(FTData)  , POINTER :: self
+         TYPE(FTData)   , POINTER :: self
          CLASS(FTObject), POINTER :: obj
 
          IF(.NOT. ASSOCIATED(self)) RETURN
@@ -142,12 +144,12 @@ END FUNCTION storedDataSize
 !
 !//////////////////////////////////////////////////////////////////////// 
 ! 
-      FUNCTION dataType(self)  RESULT(t)
+      FUNCTION storedDataType(self)  RESULT(t)
          IMPLICIT NONE  
          CLASS(FTData)    :: self
          CHARACTER(LEN=DATA_CLASS_TYPE_LENGTH) :: t
          t = self % dataType
-      END FUNCTION dataType
+      END FUNCTION storedDataType
 !
 !//////////////////////////////////////////////////////////////////////// 
 ! 
@@ -195,9 +197,9 @@ END FUNCTION dataClassName
 ! 
       FUNCTION dataIsOfType(self, dataType)  RESULT(t)
          IMPLICIT NONE  
-         CLASS(FTData)                         :: self
-         CHARACTER(LEN=DATA_CLASS_TYPE_LENGTH) :: dataType
-         LOGICAL                               :: t
+         CLASS(FTData)    :: self
+         CHARACTER(LEN=*) :: dataType
+         LOGICAL          :: t
 
          IF ( dataType == self % dataType )     THEN
             t = .TRUE. 

Source/FTObjects/FTDictionaryClass.f90

@@ -438,8 +438,7 @@ CHARACTER(LEN=DESCRIPTION_CHARACTER_LENGTH) FUNCTION FTDictionaryDescription(sel
                s = self % entries(i) % description()
                IF ( LEN_TRIM(s) > 0 )     THEN
                   FTDictionaryDescription =  TRIM(FTDictionaryDescription) // &
-                                             TRIM(self % entries(i) % description()) // &
-                                             CHAR(13)
+                                             TRIM(s) // NEW_LINE('a')
                END IF 
             END DO
 

Source/FTObjects/FTExceptionClass.f90

@@ -590,7 +590,7 @@ SUBROUTINE destructFTExceptions
            END IF
            PRINT *,"   ***********************************"
            PRINT *
-           CALL errorStack % printDescription(iUnit = 6)
+           CALL printAllExceptions
          END IF 
 !
 !        -----------------------

Source/FTObjects/FTLinkedListClass.f90

@@ -445,51 +445,6 @@ LOGICAL FUNCTION isCircular(self)
       END FUNCTION isCircular
 !
 !////////////////////////////////////////////////////////////////////////
-!
-      SUBROUTINE removeObject1(self,obj)
-         IMPLICIT NONE 
-         CLASS(FTLinkedList)                :: self
-         CLASS(FTObject)          , POINTER :: obj
-
-         CLASS(FTLinkedListRecord), POINTER :: current => NULL(), previous => NULL()
-
-         IF ( .NOT.ASSOCIATED(self % head) )     RETURN
-
-         current  => self % head
-         previous => NULL()
-!
-!        -------------------------------------------------------------
-!        Find the object in the list by a linear search and remove it.
-!        It will be deallocated if necessary.
-!        -------------------------------------------------------------
-!
-         DO WHILE (ASSOCIATED(current))
-            IF ( ASSOCIATED(current % recordObject,obj) )     THEN
-
-               IF ( ASSOCIATED(previous) )     THEN
-                  previous % next => current % next
-               ELSE
-                  self % head => current % next
-               END IF 
-
-               IF ( ASSOCIATED(current,self % tail) )     THEN
-                  self % tail => previous 
-               END IF 
-
-               obj => current
-               CALL release(obj)
-
-               self % nRecords = self % nRecords - 1
-               EXIT
-            END IF 
-
-            previous => current
-            current  => current % next
-         END DO
-
-      END SUBROUTINE removeObject1 
-!
-!////////////////////////////////////////////////////////////////////////
 !
       SUBROUTINE removeObject(self,obj)
          IMPLICIT NONE 

Source/FTObjects/FTObjectArrayClass.f90

@@ -481,9 +481,9 @@ END FUNCTION objectArrayFromObject
 ! 
       SUBROUTINE castToMutableObjectArray(obj,cast) 
 !
-!     -----------------------------------------------------
-!     Cast the base class FTObject to the FTException class
-!     -----------------------------------------------------
+!     --------------------------------------------------------------
+!     Cast the base class FTObject to the FTMutableObjectArray class
+!     --------------------------------------------------------------
 !
          IMPLICIT NONE  
          CLASS(FTObject)            , POINTER :: obj

Source/FTObjects/FTSparseMatrixClass.f90

@@ -124,7 +124,7 @@ SUBROUTINE castObjectToMatrixData(obj,cast)
          IMPLICIT NONE  
 !
 !        -----------------------------------------------------
-!        Cast the base class FTObject to the FTException class
+!        Cast the base class FTObject to the MatrixData class
 !        -----------------------------------------------------
 !
          CLASS(FTObject)  , POINTER :: obj
@@ -146,7 +146,7 @@ FUNCTION matrixDataCast(obj)  RESULT(cast)
          IMPLICIT NONE  
 !
 !        -----------------------------------------------------
-!        Cast the base class FTObject to the FTException class
+!        Cast the base class FTObject to the MatrixData class
 !        -----------------------------------------------------
 !
          CLASS(FTObject)  , POINTER :: obj
@@ -511,9 +511,9 @@ END FUNCTION SparseMatrixSize
 ! 
       FUNCTION SparseMatrixFromObject(obj) RESULT(cast)
 !
-!     -----------------------------------------------------
-!     Cast the base class FTObject to the FTException class
-!     -----------------------------------------------------
+!     --------------------------------------------------------
+!     Cast the base class FTObject to the FTSparseMatrix class
+!     --------------------------------------------------------
 !
          IMPLICIT NONE  
          CLASS(FTObject)   , POINTER :: obj

Source/FTObjects/FTValueClass.f90

@@ -658,9 +658,9 @@ FUNCTION stringValue(self,requestedLength) RESULT(s)
             CASE (FTVALUECLASS_LOGICAL)
                l = TRANSFER(self % valueStorage, l)
                IF ( l )     THEN
-                  s = "TRUE"
+                  s = ".true."
                ELSE
-                  s = "FALSE"
+                  s = ".false."
                END IF
          END SELECT
 

Source/FTObjects/FTValueDictionaryClass.f90

@@ -376,7 +376,8 @@ END FUNCTION stringValueForKey
       SUBROUTINE castDictionaryToValueDictionary(dict,valueDict) 
 !
 !     -----------------------------------------------------
-!     Cast the base class FTObject to the FTException class
+!     Cast a FTDictionary to a FTValueDictionary as a
+!     subroutine call.
 !     -----------------------------------------------------
 !
          IMPLICIT NONE  
@@ -405,7 +406,7 @@ SUBROUTINE castObjectToValueDictionary(obj,valueDict)
          CLASS(FTValueDictionary), POINTER :: valueDict
          CLASS(FTObject)         , POINTER :: obj
 
-         obj => NULL()
+         valueDict => NULL()
          SELECT TYPE (obj)
             TYPE is (FTValueDictionary)
                valueDict => obj
@@ -420,7 +421,8 @@ END SUBROUTINE castObjectToValueDictionary
       FUNCTION valueDictionaryFromDictionary(dict) RESULT(valueDict)
 !
 !     -----------------------------------------------------
-!     Cast the base class FTObject to the FTException class
+!     Cast FTDictionary to the FTValueDictionary class as
+!     a function call.
 !     -----------------------------------------------------
 !
          IMPLICIT NONE