Commit 25a79fa5 authored by ulrich_y's avatar ulrich_y

Added errprint function

parent ff2c22d0
......@@ -41,13 +41,18 @@ PROGRAM TEST
if(tests_successful) then
print*, 'All tests passed. '
print*, 'Some tests failed. '
stop 1
call errprint('Some tests failed. ')
end if
subroutine errprint(msg)
character(len=*) msg
write(0,*) "Error:", msg
stop 1
end subroutine
subroutine check(res, ref)
complex(kind=prec) :: res, ref
real(kind=prec) :: delta
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment