Fix CI error: remove module keyword in submodule.

Author: zoziha

doc/specs/stdlib_io.md

@@ -132,7 +132,7 @@ program demo_savetxt
 end program demo_savetxt
 ```
 
-## `disp` - display the value of the vairable
+## `disp` - display the value of the variable
 
 ### Status
 
@@ -163,15 +163,15 @@ This argument is `intent(in)` and `optional`.
 This argument is `intent(in)` and `optional`.<br>
 The default value is `output_unit` from `iso_fortran_env` module.
 
-- `brief`: Shall be a `logical` scalar, controls an abridged version of the `x` array to be outputed.
+- `brief`: Shall be a `logical` scalar, controls an abridged version of the `x` array to be outputted.
 This argument is `intent(in)` and `optional`.<br>
 The default value is `.false.`
 
 - `format`: Shall be a `character(len=*)` scalar.
 This argument is `intent(in)` and `optional`.<br>
 The default value is `g0.4`.
 
-- `width`: Shall be an `integer` scalar, controls the outputed maximum width (`>=80`).
+- `width`: Shall be an `integer` scalar, controls the outputted maximum width (`>=80`).
 This argument is `intent(in)` and `optional`.<br>
 The default value is `80`.
 

src/stdlib_io.fypp

@@ -32,30 +32,29 @@ module stdlib_io
 
   !> version: experimental
   !>
-  !> Display a scalar, vector or matrix.
-  !> ([Specification](../page/specs/stdlib_io.html#disp-display-your-data))
-  #! Displays a scalar or array value nicely
+  !> Display a scalar, vector or matrix formatted.
+  !> ([Specification](../page/specs/stdlib_io.html#display-the-value-of-the-variable))
   interface disp
       #:set ALL_KINDS_TYPES = REAL_KINDS_TYPES + CMPLX_KINDS_TYPES + INT_KINDS_TYPES + LOG_KINDS_TYPES + STRING_KINDS_TYPES
       module subroutine disp_char(x, header, unit, brief, format, width, sep)
-        character(*), intent(in), optional :: x
-        character(len=*), intent(in), optional :: header
-        integer, intent(in), optional :: unit
-        logical, intent(in), optional :: brief
-        character(len=*), intent(in), optional :: format
-        integer, intent(in), optional :: width
-        character(len=*), intent(in), optional :: sep
+          character(*), intent(in), optional :: x
+          character(len=*), intent(in), optional :: header
+          integer, intent(in), optional :: unit
+          logical, intent(in), optional :: brief
+          character(len=*), intent(in), optional :: format
+          integer, intent(in), optional :: width
+          character(len=*), intent(in), optional :: sep
       end subroutine disp_char
       #:for r1 in range(0, 3)
       #:for k1, t1 in ALL_KINDS_TYPES
       module subroutine disp_${r1}$_${t1[0]}$${k1}$(x, header, unit, brief, format, width, sep)
-        ${t1}$, intent(in) :: x${ranksuffix(r1)}$
-        character(len=*), intent(in), optional :: header
-        integer, intent(in), optional :: unit
-        logical, intent(in), optional :: brief
-        character(len=*), intent(in), optional :: format
-        integer, intent(in), optional :: width
-        character(len=*), intent(in), optional :: sep
+          ${t1}$, intent(in) :: x${ranksuffix(r1)}$
+          character(len=*), intent(in), optional :: header
+          integer, intent(in), optional :: unit
+          logical, intent(in), optional :: brief
+          character(len=*), intent(in), optional :: format
+          integer, intent(in), optional :: width
+          character(len=*), intent(in), optional :: sep
       end subroutine disp_${r1}$_${t1[0]}$${k1}$
       #:endfor
       #:endfor

src/stdlib_io_disp.fypp

@@ -32,7 +32,7 @@ contains
         integer :: unit_, width_#{if r1 == 2}#, max_elem_len#{endif}#
         logical :: brief_
         character(len=:), allocatable :: format_, sep_
-        #{if r1 != 0 or (r1 == 1 and k1 != "string_type")}#integer :: i#{endif}#
+        #{if r1 != 0 and not(r1 == 1 and k1 == "string_type")}#integer :: i#{endif}#
         #{if r1 == 2 and k1 != "string_type"}#integer :: j#{endif}#
         #{if k1 != "string_type"}#type(string_type), allocatable :: x_str${ranksuffix(r1)}$#{endif}#
         #{if r1 != 0}#type(string_type) :: array_info#{endif}#
@@ -51,7 +51,7 @@ contains
 
         #! Prints header
         if (present(header)) then
-            write(unit_, *) format_output_string([string_type(header)], width_, brief_, "", len(header))
+            write(unit_, "(A)") format_output_string([string_type(header)], width_, brief_, "", len(header))
         end if
 
         #:if k1 != "string_type"
@@ -63,7 +63,7 @@ contains
 
             #:elif r1 == 1
                 array_info = array_info_maker(size(x, 1))
-                write(unit_, *) format_output_string([array_info], width_, brief_, "", len(array_info))
+                write(unit_, "(A)") format_output_string([array_info], width_, brief_, "", len(array_info))
 
                 allocate(x_str(size(x, 1)))
                 do i = 1, size(x, 1)
@@ -74,7 +74,7 @@ contains
             #:elif r1 == 2
 
                 array_info = array_info_maker(size(x, 1), size(x, 2))
-                write(unit_, *) format_output_string([array_info], width_, brief_, "", len(array_info))
+                write(unit_, "(A)") format_output_string([array_info], width_, brief_, "", len(array_info))
 
                 allocate(x_str(size(x, 1), size(x, 2)))
                 do i = 1, size(x, 1)
@@ -110,14 +110,14 @@ contains
 
             #:elif r1 == 1
                 array_info = array_info_maker(size(x, 1))
-                write(unit_, *) format_output_string([array_info], width_, brief_, "", len(array_info))
+                write(unit_, "(A)") format_output_string([array_info], width_, brief_, "", len(array_info))
 
                 write(unit_, "(*(A))") format_output_string(x, width_, brief_, sep_, maxval(len(x)))
 
             #:elif r1 == 2
 
                 array_info = array_info_maker(size(x, 1), size(x, 2))
-                write(unit_, *) format_output_string([array_info], width_, brief_, "", len(array_info))
+                write(unit_, "(A)") format_output_string([array_info], width_, brief_, "", len(array_info))
 
                 max_elem_len = maxval(len(x))
 
@@ -146,7 +146,7 @@ contains
     #:endfor
 
     !> Format output string
-    pure module function format_output_string(x, width, brief, sep, max_elem_len) result(str)
+    pure function format_output_string(x, width, brief, sep, max_elem_len) result(str)
 
         type(string_type), intent(in) :: x(:)
         integer, intent(in) :: width
@@ -204,7 +204,7 @@ contains
             num1 = merge(width/elem_len, 1, elem_len <= width)
             num2 = size(x, 1)/num1
 
-            if (num2 > 1 .or. size(x, 1) /= 0) then
+            if (num2 > 1 .or. size(x, 1) > 1) then
                 allocate(str(merge(num2, num2 + 1, mod(size(x, 1), num1)==0)))
 
                 do i = 1, size(str) - 1
@@ -262,8 +262,8 @@ contains
 
     end function format_output_string
 
-    !> Print array infomation
-    pure type(string_type) module function array_info_maker(m, n) result(info)
+    !> Print array information
+    pure type(string_type) function array_info_maker(m, n) result(info)
         integer, intent(in) :: m
         integer, intent(in), optional :: n