Change stop -1 to stop in Fortran host tests

Author: Roberto Di Remigio

tests/Fortran_host/Fortran_host-modules.F90

@@ -166,7 +166,7 @@ subroutine test_surface_functions(grid_size, mep, asc_Ag, asc_B3g, asc_neq_B3g,
     do ipoint = 1, grid_size
       if (.not. check(ipoint)) then
         write(error_unit, *) 'Error in MEP, please file an issue on: https://github.com/PCMSolver/pcmsolver'
-        stop -1
+        stop
       end if
     end do
     write(output_unit, *) 'Test on MEP: PASSED'
@@ -175,7 +175,7 @@ subroutine test_surface_functions(grid_size, mep, asc_Ag, asc_B3g, asc_neq_B3g,
     do ipoint = 1, grid_size
       if (.not. check(ipoint)) then
         write(error_unit, *) 'Error in ASC Ag, please file an issue on: https://github.com/PCMSolver/pcmsolver'
-        stop -1
+        stop
       end if
     end do
     write(output_unit, *) 'Test on ASC in Ag symmetry: PASSED'
@@ -184,7 +184,7 @@ subroutine test_surface_functions(grid_size, mep, asc_Ag, asc_B3g, asc_neq_B3g,
     do ipoint = 1, grid_size
       if (.not. check(ipoint)) then
         write(error_unit, *) 'Error in ASC B3g, please file an issue on: https://github.com/PCMSolver/pcmsolver'
-        stop -1
+        stop
       end if
     end do
     write(output_unit, *) 'Test on ASC in B3g symmetry: PASSED'
@@ -193,7 +193,7 @@ subroutine test_surface_functions(grid_size, mep, asc_Ag, asc_B3g, asc_neq_B3g,
     do ipoint = 1, grid_size
       if (.not. check(ipoint)) then
         write(error_unit, *) 'Error in nonequilibrium ASC B3g, please file an issue on: https://github.com/PCMSolver/pcmsolver'
-        stop -1
+        stop
       end if
     end do
     write(output_unit, *) 'Test on nonequilibrium ASC in B3g symmetry: PASSED'
@@ -202,7 +202,7 @@ subroutine test_surface_functions(grid_size, mep, asc_Ag, asc_B3g, asc_neq_B3g,
     do ipoint = 1, grid_size
       if (.not. check(ipoint)) then
         write(error_unit, *) 'Error in finite elements areas, please file an issue on: https://github.com/PCMSolver/pcmsolver'
-        stop -1
+        stop
       end if
     end do
     write(output_unit, *) 'Test on finite elements areas: PASSED'

tests/Fortran_host/Fortran_host.F90

@@ -28,7 +28,7 @@ program pcm_fortran_host
 
       if (.not. pcmsolver_is_compatible_library()) then
         write(error_unit, *) 'PCMSolver library not compatible!'
-        stop -1
+        stop
       end if
 
       ! Open a file for the output...
@@ -125,21 +125,21 @@ program pcm_fortran_host
       ! Cavity size
       if (grid_size .ne. ref_size) then
         write(error_unit, *) 'Error in the cavity size, please file an issue on: https://github.com/PCMSolver/pcmsolver'
-        stop -1
+        stop
       else
         write(output_unit, *) 'Test on cavity size: PASSED'
       end if
       ! Irreducible cavity size
       if (irr_grid_size .ne. ref_irr_size) then
         write(error_unit, *) 'Error in the irreducible cavity size, please file an issue on: https://github.com/PCMSolver/pcmsolver'
-        stop -1
+        stop
       else
         write(output_unit, *) 'Test on irreducible cavity size: PASSED'
       end if
       ! Polarization energy
       if (.not. check_unsigned_error(energy, ref_energy, 1.0e-7_c_double)) then
         write(error_unit, *) 'Error in the polarization energy, please file an issue on: https://github.com/PCMSolver/pcmsolver'
-        stop -1
+        stop
       else
         write(output_unit, *) 'Test on polarization energy: PASSED'
       end if