diff --git a/phy/mod_xc_mp.inc b/phy/mod_xc_mp.inc
index 4fe19c79..f90a4b6d 100644
--- a/phy/mod_xc_mp.inc
+++ b/phy/mod_xc_mp.inc
@@ -1012,7 +1012,7 @@ c
 #else
       call abort()
 #endif
-      stop '(xchalt)'
+      error stop '(xchalt)'
       end subroutine xchalt
 
       subroutine xclget(aline,nl, a, i1,j1,iinc,jinc, mnflg)
diff --git a/phy/mod_xc_sm.inc b/phy/mod_xc_sm.inc
index 5d733aa8..3ecef92f 100644
--- a/phy/mod_xc_sm.inc
+++ b/phy/mod_xc_sm.inc
@@ -210,7 +210,7 @@ c
         write(lp,*) '**************************************************'
         call flush(lp)
       endif
-      stop '(xchalt)'
+      error stop '(xchalt)'
       end subroutine xchalt
 
       subroutine xclget(aline,nl, a, i1,j1,iinc,jinc, mnflg)