Apply suggestions from code review

 Adding white spaces Co-authored-by: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>

Author: sakamoti

src/stdlib_logger.f90

@@ -352,8 +352,8 @@ subroutine validate_unit()
  end if
 
 ! Check that unit is opened
- inquire( unit, opened=question, iostat=istat, iomsg=msgtxt)
- if(istat/=0) question=.false.
+ inquire( unit, opened=question, iostat=istat, iomsg=msgtxt )
+ if(istat /= 0) question = .false.
  if ( .not. question ) then
  if ( present(stat) ) then
  stat = unopened_in_error

src/stdlib_string_type.fypp

@@ -571,11 +571,11 @@ contains
  logical, intent(in), optional :: back
  integer :: pos
 
- if(present(back))then
- pos = index(maybe(string), maybe(substring),back)
+ if (present(back)) then
+ pos = index(maybe(string), maybe(substring), back)
  else
- pos = index(maybe(string), maybe(substring),.false.)
- endif
+ pos = index(maybe(string), maybe(substring), .false.)
+ end if
 
  end function index_string_string
 
@@ -587,11 +587,11 @@ contains
  logical, intent(in), optional :: back
  integer :: pos
 
- if(present(back))then
- pos = index(maybe(string), substring,back)
+ if (present(back)) then
+ pos = index(maybe(string), substring, back)
  else
- pos = index(maybe(string), substring,.false.)
- endif
+ pos = index(maybe(string), substring, .false.)
+ end if
 
  end function index_string_char
 
@@ -603,11 +603,11 @@ contains
  logical, intent(in), optional :: back
  integer :: pos
 
- if(present(back))then
- pos = index(string, maybe(substring),back)
+ if (present(back)) then
+ pos = index(string, maybe(substring), back)
  else
- pos = index(string, maybe(substring),.false.)
- endif
+ pos = index(string, maybe(substring), .false.)
+ end if
 
  end function index_char_string
 
@@ -621,11 +621,11 @@ contains
  logical, intent(in), optional :: back
  integer :: pos
 
- if(present(back))then
- pos = scan(maybe(string), maybe(set),back)
+ if (present(back)) then
+ pos = scan(maybe(string), maybe(set), back)
  else
- pos = scan(maybe(string), maybe(set),.false.)
- endif
+ pos = scan(maybe(string), maybe(set), .false.)
+ end if
 
  end function scan_string_string
 
@@ -637,11 +637,11 @@ contains
  logical, intent(in), optional :: back
  integer :: pos
 
- if(present(back))then
- pos = scan(maybe(string), set,back)
+ if (present(back)) then
+ pos = scan(maybe(string), set, back)
  else
- pos = scan(maybe(string), set,.false.)
- endif
+ pos = scan(maybe(string), set, .false.)
+ end if
 
  end function scan_string_char
 
@@ -653,11 +653,11 @@ contains
  logical, intent(in), optional :: back
  integer :: pos
 
- if(present(back))then
- pos = scan(string, maybe(set),back)
+ if (present(back)) then
+ pos = scan(string, maybe(set), back)
  else
- pos = scan(string, maybe(set),.false.)
- endif
+ pos = scan(string, maybe(set), .false.)
+ end if
 
  end function scan_char_string
 
@@ -671,11 +671,11 @@ contains
  logical, intent(in), optional :: back
  integer :: pos
 
- if(present(back))then
- pos = verify(maybe(string), maybe(set),back)
+ if (present(back)) then
+ pos = verify(maybe(string), maybe(set), back)
  else
- pos = verify(maybe(string), maybe(set),.false.)
- endif
+ pos = verify(maybe(string), maybe(set), .false.)
+ end if
 
  end function verify_string_string
 
@@ -688,11 +688,11 @@ contains
  logical, intent(in), optional :: back
  integer :: pos
 
- if(present(back))then
- pos = verify(maybe(string), set,back)
+ if (present(back)) then
+ pos = verify(maybe(string), set, back)
  else
- pos = verify(maybe(string), set,.false.)
- endif
+ pos = verify(maybe(string), set, .false.)
+ end if
 
  end function verify_string_char
 
@@ -705,11 +705,11 @@ contains
  logical, intent(in), optional :: back
  integer :: pos
 
- if(present(back))then
- pos = verify(string, maybe(set),back)
+ if (present(back)) then
+ pos = verify(string, maybe(set), back)
  else
- pos = verify(string, maybe(set),.false.)
- endif
+ pos = verify(string, maybe(set), .false.)
+ end if
 
  end function verify_char_string
 

src/tests/logger/test_stdlib_logger.f90

@@ -464,8 +464,8 @@ subroutine test_removing_log_units()
 
  end if
 
- inquire( unit4, opened=opened ,iostat=istat,iomsg=msgtxt)
- if(istat/=0) opened=.false.
+ inquire( unit4, opened=opened, iostat=istat, iomsg=msgtxt )
+ if(istat /= 0) opened = .false.
  if ( opened ) then
  error stop 'UNIT4 is opened contrary to expectations.'
 

src/tests/stats/test_mean_f03.f90

@@ -20,7 +20,7 @@ program test_mean
 call check( sum( abs( mean(d,2) - sum(d,2)/real(size(d,2), dp) )) < dptol)
 
 !dp rank 8
-allocate(d8(size(d,1), size(d,2), 3, 4, 5, 6, 7, 8),source=0.0_dp)
+allocate(d8(size(d,1), size(d,2), 3, 4, 5, 6, 7, 8), source=0.0_dp)
 d8(:, :, 1, 4, 5 ,6 ,7 ,8)=d;
 d8(:, :, 2, 4, 5 ,6 ,7 ,8)=d * 1.5_dp;
 d8(:, :, 3, 4, 5 ,6 ,7 ,8)=d * 4._dp;