@@ -14,6 +14,7 @@ add_subdirectory(hashmaps)
 add_subdirectory(hash_procedures)
 add_subdirectory(io)
 add_subdirectory(linalg)
+add_subdirectory(linked_list)
 add_subdirectory(logger)
 add_subdirectory(math)
 add_subdirectory(optval)

@@ -0,0 +1,15 @@
+include_directories(${CMAKE_CURRENT_LIST_DIR})
+
+ADD_EXAMPLE(linked_absorb)
+ADD_EXAMPLE(linked_clear)
+ADD_EXAMPLE(linked_concat)
+ADD_EXAMPLE(linked_get)
+ADD_EXAMPLE(linked_insert)
+ADD_EXAMPLE(linked_pop)
+ADD_EXAMPLE(linked_push)
+ADD_EXAMPLE(linked_remove)
+ADD_EXAMPLE(linked_replace)
+ADD_EXAMPLE(linked_reverse)
+ADD_EXAMPLE(linked_size)
+ADD_EXAMPLE(linked_slice)
+ADD_EXAMPLE(linked_splice)

@@ -0,0 +1,70 @@
+! example_absorb.f90 --
+! Demonstrate the absorb method
+!
+program example_absorb
+use stdlib_linked_list
+
+implicit none
+
+type(linked_list_type) :: list, list_to_absorb
+
+!
+! Add a few elements to the two lists
+!
+call list%insert( "String element", 1 )
+call list%insert( 2, 2 )
+call list%insert( 3.3, 3 )
+
+call list_to_absorb%insert( 5, 1 )
+call list_to_absorb%insert( 6, 2 )
+
+write(*,*) 'List 1:'
+call print_list( list )
+write(*,*) 'List 2:'
+call print_list( list_to_absorb )
+
+!
+! Now absorb the second list to the first one
+!
+
+call list%absorb( list_to_absorb )
+
+!
+! Print the resulting list
+!
+write(*,*) 'New list:'
+call print_list( list )
+
+!
+! Print the second list (it is untouched)
+write(*,*) 'List that was absorbed (should be empty):'
+call print_list( list_to_absorb )
+
+contains
+!include 'linked_list_aux.inc'
+subroutine print_list( list )
+type(linked_list_type), intent(in) :: list
+
+integer :: i
+class(*), pointer :: list_item
+
+do i = 1,list%size()
+list_item => list%get(i)
+
+select type( item => list_item )
+type is (integer)
+write(*,*) i, item, ' (integer)'
+
+type is (real)
+write(*,*) i, item, ' (real)'
+
+type is (character(*))
+write(*,*) i, ' >', item, '< (string)'
+
+class default
+write(*,*) i, ' (type unknown)'
+end select
+enddo
+end subroutine print_list
+
+end program example_absorb

@@ -0,0 +1,28 @@
+! example_clear.f90 --
+! Demonstrate the clear method
+!
+program example_clear
+use stdlib_linked_list
+
+implicit none
+
+type(linked_list_type) :: list
+
+!
+! Add a few elements
+!
+call list%insert( "String element", 1 )
+call list%insert( 2, 2 )
+call list%insert( 3.3, 3 )
+
+!
+! Clean up the list
+!
+call list%clear()
+
+!
+! The program should print 0
+!
+write(*,*) 'Size of the list: ', list%size()
+
+end program example_clear

@@ -0,0 +1,70 @@
+! example_concat.f90 --
+! Demonstrate the concat method
+!
+program example_concat
+use stdlib_linked_list
+
+implicit none
+
+type(linked_list_type) :: list, list_to_concat
+
+!
+! Add a few elements to the two lists
+!
+call list%insert( "String element", 1 )
+call list%insert( 2, 2 )
+call list%insert( 3.3, 3 )
+
+call list_to_concat%insert( 5, 1 )
+call list_to_concat%insert( 6, 2 )
+
+write(*,*) 'List 1:'
+call print_list( list )
+write(*,*) 'List 2:'
+call print_list( list_to_concat )
+
+!
+! Now concat the second list to the first one
+!
+
+call list%concat( list_to_concat )
+
+!
+! Print the resulting list
+!
+write(*,*) 'New list:'
+call print_list( list )
+
+!
+! Print the second list (it is untouched)
+write(*,*) 'List that was concatenated (remains intact):'
+call print_list( list_to_concat )
+
+contains
+!include 'linked_list_aux.inc'
+subroutine print_list( list )
+type(linked_list_type), intent(in) :: list
+
+integer :: i
+class(*), pointer :: list_item
+
+do i = 1,list%size()
+list_item => list%get(i)
+
+select type( item => list_item )
+type is (integer)
+write(*,*) i, item, ' (integer)'
+
+type is (real)
+write(*,*) i, item, ' (real)'
+
+type is (character(*))
+write(*,*) i, ' >', item, '< (string)'
+
+class default
+write(*,*) i, ' (type unknown)'
+end select
+enddo
+end subroutine print_list
+
+end program example_concat

@@ -0,0 +1,41 @@
+! example_get.f90 --
+! Demonstrate the get method
+!
+program example_get
+use stdlib_linked_list
+
+implicit none
+
+type(linked_list_type) :: list
+class(*), pointer :: list_item
+integer :: i
+
+!
+! Add a few elements
+!
+call list%insert( "String element ", 1 ) ! Note the trailing blanks
+call list%insert( 2, 2 )
+call list%insert( 3.3, 3 )
+
+!
+! Print the contents of the list
+!
+do i = 1,list%size()
+list_item => list%get(i)
+
+select type( item => list_item )
+type is (integer)
+write(*,*) i, item, ' (integer)'
+
+type is (real)
+write(*,*) i, item, ' (real)'
+
+type is (character(*))
+write(*,*) i, ' >', item, '< (string)'
+
+class default
+write(*,*) i, ' (type unknown)'
+end select
+enddo
+
+end program example_get

@@ -0,0 +1,59 @@
+! example_insert.f90 --
+! Demonstrate the insert method
+!
+
+program example_insert
+use stdlib_linked_list
+
+implicit none
+
+type(linked_list_type) :: list
+
+!
+! Add a few elements
+!
+call list%insert( "String element", 1 )
+call list%insert( 2, 2 )
+call list%insert( 3.3, 3 )
+
+call print_list( list )
+!
+! Now insert an element in the middle
+!
+
+call list%insert( "Another string", 2 )
+
+!
+! Print the list
+!
+write(*,*) 'New list:'
+call print_list( list )
+
+contains
+!include 'linked_list_aux.inc'
+subroutine print_list( list )
+type(linked_list_type), intent(in) :: list
+
+integer :: i
+class(*), pointer :: list_item
+
+do i = 1,list%size()
+list_item => list%get(i)
+
+select type( item => list_item )
+type is (integer)
+write(*,*) i, item, ' (integer)'
+
+type is (real)
+write(*,*) i, item, ' (real)'
+
+type is (character(*))
+write(*,*) i, ' >', item, '< (string)'
+
+class default
+write(*,*) i, ' (type unknown)'
+end select
+enddo
+end subroutine print_list
+
+end program example_insert

@@ -0,0 +1,59 @@
+! example_pop.f90 --
+! Demonstrate the pop method
+!
+program example_pop
+use stdlib_linked_list
+
+implicit none
+
+type(linked_list_type) :: list
+
+!
+! Add a few elements
+!
+call list%insert( "String element", 1 )
+call list%insert( 2, 2 )
+call list%insert( 3.3, 3 )
+
+call print_list( list )
+
+!
+! Now pop the last element from the list
+!
+
+call list%pop
+
+!
+! Print the list
+!
+write(*,*) 'New list:'
+call print_list( list )
+
+contains
+!include 'linked_list_aux.inc'
+subroutine print_list( list )
+type(linked_list_type), intent(in) :: list
+
+integer :: i
+class(*), pointer :: list_item
+
+do i = 1,list%size()
+list_item => list%get(i)
+
+select type( item => list_item )
+type is (integer)
+write(*,*) i, item, ' (integer)'
+
+type is (real)
+write(*,*) i, item, ' (real)'
+
+type is (character(*))
+write(*,*) i, ' >', item, '< (string)'
+
+class default
+write(*,*) i, ' (type unknown)'
+end select
+enddo
+end subroutine print_list
+
+end program example_pop