`885a152`

Fix test_memory_pool for pointer-based string_ref

Update allocated() to associated() since string_ref%data is now
a pointer instead of allocatable array.

Authored by mfwolffe <wolffemf@dukes.jmu.edu> 4 months ago

Status	File	+	-
M	`tests/test_memory_pool.f90`	2	2

tests/test_memory_pool.f90modified

    call pool_init()
    ref1 = pool_get_string(100)
 -  if (.not. allocated(ref1%data)) then
 +  if (.not. associated(ref1%data)) then
      print *, "  FAILED: String not allocated"
      all_tests_passed = .false.
    else
    print *, "Test 6: Large allocation fallback..."
    ref1 = pool_get_string(100000)  ! 100KB - should bypass pool
 -  if (.not. allocated(ref1%data)) then
 +  if (.not. associated(ref1%data)) then
      print *, "  FAILED: Large allocation failed"
      all_tests_passed = .false.
    else