Logical return

Fix logical return and add test for it.

Author: DavidAKopriva

Source/FTObjects/FTValueClass.f90

@@ -707,9 +707,9 @@ FUNCTION stringValueR(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
 

Testing/Tests/ValueClassTests.f90

@@ -242,6 +242,9 @@ SUBROUTINE FTValueClassTests
             CALL FTAssertEqual(expectedValue = logicalToStr(j),                    &
                                actualValue = v % stringValue(), &
                                msg = "String value from logical:"// logicalToStr(j))
+            CALL FTAssertEqual(expectedValue = logicalToStr(j),                    &
+                               actualValue = v % stringValue(7), &
+                               msg = "String value from logical:"// logicalToStr(j))
             CALL FTAssertEqual(expectedValue = logicalToReal(j),                    &
                                actualValue = v % realValue(),                       &
                                relTol      = 2.0*EPSILON(x),                        &