indent, cleanup

Author: perazz

ci/run_tests.sh

@@ -191,7 +191,6 @@ test $EXIT_CODE -eq 2
 EXIT_CODE=0
 "$fpm" run || EXIT_CODE=$?
 test $EXIT_CODE -eq 1
-
 popd
 
 

example_packages/fpm_test_exit_code/app/main.f90

@@ -5,38 +5,38 @@
 ! It returns 0 on success (odd input), or among a few error codes otherwise.
 
 program check_odd_number
-  implicit none
+    implicit none
 
-  integer, parameter :: SUCCESS          = 0
-  integer, parameter :: INVALID_ARGUMENT = 1
-  integer, parameter :: NOT_AN_INTEGER   = 2
-  integer, parameter :: NOT_ODD          = 3
+    integer, parameter :: SUCCESS          = 0
+    integer, parameter :: INVALID_ARGUMENT = 1
+    integer, parameter :: NOT_AN_INTEGER   = 2
+    integer, parameter :: NOT_ODD          = 3
 
-  character(len=1024) :: buffer
-  integer :: ierr,ln,the_number
+    character(len=1024) :: buffer
+    integer :: ierr,ln,the_number
 
-  ! If the argument is missing or not an integer, return an error flag
-  if (command_argument_count()/=1) stop INVALID_ARGUMENT
+    ! If the argument is missing or not an integer, return an error flag
+    if (command_argument_count()/=1) stop INVALID_ARGUMENT
 
-  ! Get command argument
-  call get_command_argument(1,value=buffer,length=ln,status=ierr)
+    ! Get command argument
+    call get_command_argument(1,value=buffer,length=ln,status=ierr)
 
-  ! On invalid string
-  if (ln<1 .or. ierr/=0) stop INVALID_ARGUMENT
+    ! On invalid string
+    if (ln<1 .or. ierr/=0) stop INVALID_ARGUMENT
 
-  ! Read to int
-  read(buffer(:ln),*,iostat=ierr) the_number
+    ! Read to int
+    read(buffer(:ln),*,iostat=ierr) the_number
 
-  ! On invalid integer
-  if (ierr/=0) stop NOT_AN_INTEGER
+    ! On invalid integer
+    if (ierr/=0) stop NOT_AN_INTEGER
 
-  ! Check if it is odd or even
-  if (mod(the_number,2)==0) then
-      ! Is even
-      stop NOT_ODD
-  else
-      ! Is odd
-      stop SUCCESS
-  end if
+    ! Check if it is odd or even
+    if (mod(the_number,2)==0) then
+        ! Is even
+        stop NOT_ODD
+    else
+        ! Is odd
+        stop SUCCESS
+    end if
 
 end program check_odd_number