Commit 25a79fa5 authored by ulrich_y's avatar ulrich_y

Added errprint function

parent ff2c22d0
...@@ -41,13 +41,18 @@ PROGRAM TEST ...@@ -41,13 +41,18 @@ PROGRAM TEST
if(tests_successful) then if(tests_successful) then
print*, 'All tests passed. ' print*, 'All tests passed. '
else else
print*, 'Some tests failed. ' call errprint('Some tests failed. ')
stop 1
end if end if
stop stop
CONTAINS CONTAINS
subroutine errprint(msg)
character(len=*) msg
write(0,*) "Error:", msg
stop 1
end subroutine
subroutine check(res, ref) subroutine check(res, ref)
complex(kind=prec) :: res, ref complex(kind=prec) :: res, ref
real(kind=prec) :: delta 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