Commit 25a79fa5 authored by Yannick Ulrich's avatar Yannick Ulrich

Added errprint function

parent ff2c22d0
......@@ -41,13 +41,18 @@ PROGRAM TEST
if(tests_successful) then
print*, 'All tests passed. '
else
print*, 'Some tests failed. '
stop 1
call errprint('Some tests failed. ')
end if
stop
CONTAINS
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