create example program

Author: perazz

doc/specs/stdlib_io.md

@@ -296,20 +296,5 @@ Exceptions trigger an `error stop` unless the optional `err` argument is provide
 ### Example
 
 ```fortran
-program example_getfile
-  use stdlib_io
-  implicit none
-
-  type(string_type) :: fileContent
-  type(state_type) :: err
-
-  ! Read a file into a string
-  fileContent = getfile("example.txt", err=err)
-
-  if (err%error()) then
-    print *, "Error reading file:", err%print()
-  else
-    print *, "File content:", fileContent
-  end if
-end program example_getfile
+{!example/io/example_getfile.f90!}
 ```

example/io/CMakeLists.txt

@@ -1,5 +1,6 @@
 ADD_EXAMPLE(fmt_constants)
 #ADD_EXAMPLE(getline)
+ADD_EXAMPLE(getfile)
 ADD_EXAMPLE(loadnpy)
 ADD_EXAMPLE(loadtxt)
 ADD_EXAMPLE(open)

example/io/example_getfile.f90

@@ -0,0 +1,20 @@
+! Demonstrate usage of `getfile`
+program example_getfile
+  use stdlib_io, only: getfile
+  use stdlib_string_type, only: string_type
+  use stdlib_error, only: state_type
+  implicit none
+
+  character(*), parameter :: fileName = "example.txt"
+  type(string_type) :: fileContent
+  type(state_type) :: err
+
+  ! Read a file into a string
+  fileContent = getfile(fileName, err=err)
+
+  if (err%error()) then
+    print *, err%print()
+  else
+    print *, "Success! File "//fileName//" imported."
+  end if
+end program example_getfile