Add more allocatable strings

DavidAKopriva · DavidAKopriva · commit b6b3dba5d3d9 · 2025-04-13T10:33:16.000-07:00
Remove more dependences on fixed length character variables.
diff --git a/Source/FTTesting/Assert.f90 b/Source/FTTesting/Assert.f90
@@ -133,8 +133,8 @@ Module FTAssertions
 !     -------
 !
       TYPE FTAssertionFailureRecord
-         CHARACTER(LEN=FT_ASSERTION_STRING_LENGTH) :: msg, expected, actual
-         CHARACTER(LEN=FT_ASSERTION_STRING_LENGTH) :: assertionType
+         CHARACTER(LEN=:), ALLOCATABLE :: msg, expected, actual
+         CHARACTER(LEN=:), ALLOCATABLE :: assertionType
          TYPE(FTAssertionFailureRecord), POINTER   :: next
       END TYPE FTAssertionFailureRecord
 !
diff --git a/Testing/Tests/AssertionFailureTests.f90 b/Testing/Tests/AssertionFailureTests.f90
@@ -21,7 +21,7 @@ SUBROUTINE AssertionFailureTests
       TYPE(FTAssertionsManager), POINTER :: assertionsManager
       INTEGER                            :: numberUnexpectedFailures
       
-      CHARACTER(LEN=FT_ASSERTION_STRING_LENGTH) :: expected, actual
+      CHARACTER(LEN=64)  :: expected, actual
 !
 !     -----
 !     Setup

Original file line number	Diff line number	Diff line change
`@@ -133,8 +133,8 @@ Module FTAssertions`
`133`	`133`	`! -------`
`134`	`134`	`!`
`135`	`135`	`TYPE FTAssertionFailureRecord`
`136`		`- CHARACTER(LEN=FT_ASSERTION_STRING_LENGTH) :: msg, expected, actual`
`137`		`- CHARACTER(LEN=FT_ASSERTION_STRING_LENGTH) :: assertionType`
	`136`	`+ CHARACTER(LEN=:), ALLOCATABLE :: msg, expected, actual`
	`137`	`+ CHARACTER(LEN=:), ALLOCATABLE :: assertionType`
`138`	`138`	`TYPE(FTAssertionFailureRecord), POINTER :: next`
`139`	`139`	`END TYPE FTAssertionFailureRecord`
`140`	`140`	`!`
Original file line number	Diff line number	Diff line change
`@@ -21,7 +21,7 @@ SUBROUTINE AssertionFailureTests`
`21`	`21`	`TYPE(FTAssertionsManager), POINTER :: assertionsManager`
`22`	`22`	`INTEGER :: numberUnexpectedFailures`
`23`	`23`
`24`		`- CHARACTER(LEN=FT_ASSERTION_STRING_LENGTH) :: expected, actual`
	`24`	`+ CHARACTER(LEN=64) :: expected, actual`
`25`	`25`	`!`
`26`	`26`	`! -----`
`27`	`27`	`! Setup`