fix: do-concurrent syntax (fortran-lang#998)

Author: github-actions[bot]

doc/specs/stdlib_ansi.md

@@ -28,19 +28,7 @@ Experimental
 #### Example
 
 ```fortran
-program demo_color
-  use stdlib_ansi, only : fg_color_blue, style_bold, style_reset, ansi_code, &
-    & operator(//), operator(+)
-  implicit none
-  type(ansi_code) :: highlight, reset
-
-  print '(a)', highlight // "Dull text message" // reset
-
-  highlight = fg_color_blue + style_bold
-  reset = style_reset
-
-  print '(a)', highlight // "Colorful text message" // reset
-end program demo_color
+{!example/ansi/example_ansi_color.f90!}
 ```
 
 
@@ -216,12 +204,7 @@ Experimental
 #### Example
 
 ```fortran
-program demo_string
-  use stdlib_ansi, only : fg_color_green, style_reset, to_string
-  implicit none
-
-  print '(a)', to_string(fg_color_green) // "Colorized text message" // to_string(style_reset)
-end program demo_string
+{!example/ansi/example_ansi_to_string.f90!}
 ```
 
 
@@ -255,13 +238,7 @@ Experimental
 #### Example
 
 ```fortran
-program demo_combine
-  use stdlib_ansi, only : fg_color_red, style_bold, ansi_code
-  implicit none
-  type(ansi_code) :: bold_red
-
-  bold_red = fg_color_red + style_bold
-end program demo_combine
+{!example/ansi/example_ansi_combine.f90!}
 ```
 
 
@@ -295,10 +272,5 @@ Experimental
 #### Example
 
 ```fortran
-program demo_concat
-  use stdlib_ansi, only : fg_color_red, style_reset, operator(//)
-  implicit none
-
-  print '(a)', fg_color_red // "Colorized text message" // style_reset
-end program demo_concat
+{!example/ansi/example_ansi_concat.f90!}
 ```

example/CMakeLists.txt

@@ -6,6 +6,7 @@ macro(ADD_EXAMPLE name)
              WORKING_DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR})
 endmacro(ADD_EXAMPLE)
 
+add_subdirectory(ansi)
 add_subdirectory(array)
 add_subdirectory(ascii)
 add_subdirectory(bitsets)

example/ansi/CMakeLists.txt

@@ -0,0 +1,4 @@
+ADD_EXAMPLE(ansi_color)
+ADD_EXAMPLE(ansi_combine)
+ADD_EXAMPLE(ansi_concat)
+ADD_EXAMPLE(ansi_to_string)

example/ansi/example_ansi_color.f90

@@ -0,0 +1,13 @@
+program example_ansi_color
+  use stdlib_ansi, only : fg_color_blue, style_bold, style_reset, ansi_code, &
+    & operator(//), operator(+)
+  implicit none
+  type(ansi_code) :: highlight, reset
+
+  print '(a)', highlight // "Dull text message" // reset
+
+  highlight = fg_color_blue + style_bold
+  reset = style_reset
+
+  print '(a)', highlight // "Colorful text message" // reset
+end program example_ansi_color

example/ansi/example_ansi_combine.f90

@@ -0,0 +1,9 @@
+program example_ansi_combine
+  use stdlib_ansi, only : fg_color_red, style_bold, ansi_code, operator(+), to_string
+  implicit none
+  type(ansi_code) :: bold_red
+
+  bold_red = fg_color_red + style_bold
+  print '(a)', to_string(bold_red)
+  
+end program example_ansi_combine

example/ansi/example_ansi_concat.f90

@@ -0,0 +1,6 @@
+program example_ansi_concat
+  use stdlib_ansi, only : fg_color_red, style_reset, operator(//)
+  implicit none
+
+  print '(a)', fg_color_red // "Colorized text message" // style_reset
+end program example_ansi_concat

example/ansi/example_ansi_to_string.f90

@@ -0,0 +1,6 @@
+program example_ansi_to_string
+  use stdlib_ansi, only : fg_color_green, style_reset, to_string
+  implicit none
+
+  print '(a)', to_string(fg_color_green) // "Colorized text message" // to_string(style_reset)
+end program example_ansi_to_string

src/stdlib_linalg_pinv.fypp

@@ -74,7 +74,9 @@ submodule(stdlib_linalg) stdlib_linalg_pseudoinverse
          ! Get pseudo-inverse: A_pinv = V * (diag(1/s) * U^H) = V * (U * diag(1/s))^H
 
          ! 1) compute (U * diag(1/s)) in-place
-         do concurrent (i=1:m,j=1:k); u(i,j) = s(j)*u(i,j); end do
+         do concurrent (i=1:m,j=1:k)
+            u(i,j) = s(j)*u(i,j)
+         end do
 
          ! 2) commutate matmul: A_pinv = V * (U * diag(1/s))^H = ((U * diag(1/s)) * V^H)^H. 
          !    This avoids one matrix transpose