1
0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-11-04 05:03:58 +01:00

Replace error stop with stop for portability

This commit is contained in:
q-posev 2022-04-29 15:15:53 +02:00
parent 0ec37e59b5
commit dab4310efa

View File

@ -5648,7 +5648,7 @@ contains
else else
call trexio_string_of_error(trexio_rc, str) call trexio_string_of_error(trexio_rc, str)
print *, trim(str) print *, trim(str)
error stop 1 stop 1
endif endif
end subroutine trexio_assert end subroutine trexio_assert