add character allocatable example

Author: scivision

character/CMakeLists.txt

@@ -4,6 +4,10 @@ add_test(NAME char:AsciiSpecial COMMAND ascii)
 add_executable(character_array character_array.f90)
 add_test(NAME char:array COMMAND character_array)
 
+add_executable(character_allocatable character_allocatable.f90)
+add_test(NAME char:allocatable COMMAND character_allocatable)
+
+
 add_executable(split split_string.f90)
 add_test(NAME char:SplitString COMMAND split)
 

character/character_allocatable.f90

@@ -0,0 +1,19 @@
+program character_alloctable
+!! shows Fortran 2003 allocatable character and auto-allocated array
+implicit none
+
+character(:), allocatable :: flex(:)
+
+flex = [character(9) :: 'hi', 'hello', 'greetings']
+
+if (size(flex) /= 3) error stop
+if (len(flex(1)) /= 9) error stop
+if (len_trim(flex(1)) /= 2) error stop
+
+flex = [character(8) :: 'bye', 'goodbye', 'farewell', 'sayanora']
+
+if (size(flex) /= 4) error stop
+if (len(flex(1)) /= 8) error stop
+if (len_trim(flex(1)) /= 3) error stop
+
+end program

character/meson.build

@@ -4,6 +4,9 @@ test('Ascii Special', ascii, suite: 'char', timeout: 10)
 char_array = executable('character_array', 'character_array.f90')
 test('CharacterArray', char_array, suite: 'char', timeout: 10)
 
+char_alloc = executable('character_allocatable', 'character_allocatable.f90')
+test('CharacterAllocatable', char_alloc, suite: 'char', timeout: 10)
+
 split = executable('split', 'split_string.f90')
 test('Split Character', split, suite: 'char', timeout: 10)