Add error stop on failure and cleanup EOF spacing

Author: zbeekman

src/tests/regression/reported/issue-503-multidim-array-broadcast.f90

@@ -36,8 +36,9 @@ program main
 
    if (abs(red1 - nimg * sum1) > epsilon(0.) .or. abs(red2 - nimg * sum2) > epsilon(0.)) then
       write(*,*) 'Test failed!'
+      error stop 5
    else
       write(*,*) 'Test passed.'
    end if
    deallocate(arr1, arr2)
-end program
+end program