added constructor for string array and its test cases

Author: aman-godara

src/stdlib_stringlist_type.f90

@@ -97,6 +97,7 @@ module stdlib_stringlist_type
     interface stringlist_type
         module procedure new_stringlist
         module procedure new_stringlist_carray
+        module procedure new_stringlist_sarray
     end interface
 
     !> Version: experimental
@@ -150,9 +151,6 @@ module stdlib_stringlist_type
     !> Returns a new instance of type stringlist 
     pure function new_stringlist()
         type(stringlist_type)                           :: new_stringlist
-        type(string_type), dimension(0)                 :: sarray
-
-        new_stringlist = stringlist_type( sarray )
 
     end function new_stringlist
 
@@ -172,6 +170,17 @@ pure function new_stringlist_carray( array )
 
     end function new_stringlist_carray
 
+    !> Constructor to convert stringarray to stringlist
+    !> Returns a new instance of type stringlist
+    pure function new_stringlist_sarray( array )
+        type(string_type), dimension(:), intent(in)     :: array
+        type(stringlist_type)                           :: new_stringlist_sarray
+
+        new_stringlist_sarray = stringlist_type()
+        new_stringlist_sarray%stringarray = array
+
+    end function new_stringlist_sarray
+
   ! constructor for stringlist_index_type:
 
     !> Returns an instance of type 'stringlist_index_type' representing forward index 'idx'

src/tests/stringlist/test_insert_at.f90

@@ -342,12 +342,12 @@ subroutine test_constructor
         call check( work_list == sarray, "test_constructor:&
             & test_case 2 work_list == sarray" )
 
-        ! write (*,*) "test_constructor:        Starting test case 3!"
-        ! work_list = stringlist_type( sarray )
-        ! call check( work_list == carray, "test_constructor:&
-        !     & test_case 3 work_list == carray" )
-        ! call check( work_list == sarray, "test_constructor:&
-        !     & test_case 3 work_list == sarray" )
+        write (*,*) "test_constructor:        Starting test case 3!"
+        work_list = stringlist_type( sarray )
+        call check( work_list == carray, "test_constructor:&
+            & test_case 3 work_list == carray" )
+        call check( work_list == sarray, "test_constructor:&
+            & test_case 3 work_list == sarray" )
 
     end subroutine test_constructor