Fix CI error: remove module keyword in submodule.

fortran-lang · Nov 9, 2021 · d4cce04 · d4cce04
1 parent 4bae170
commit d4cce04
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 20 deletions.
diff --git a/src/stdlib_io.fypp b/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-vairable))
   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

diff --git a/src/stdlib_io_disp.fypp b/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}#
@@ -263,7 +263,7 @@ contains
     end function format_output_string
 
     !> Print array infomation
-    pure type(string_type) module function array_info_maker(m, n) result(info)
+    pure type(string_type) function array_info_maker(m, n) result(info)
         integer, intent(in) :: m
         integer, intent(in), optional :: n
 
@@ -276,7 +276,7 @@ contains
     end function array_info_maker
 
     !> Display `character(*)` value.
-    module subroutine disp_char(x, header, unit, brief, format, width, sep)
+    subroutine disp_char(x, header, unit, brief, format, width, sep)
 
         character(*), intent(in), optional :: x
         character(len=*), intent(in), optional :: header