abort_ X
1: #include <stdio.h> 2: 3: abort_() 4: { 5: fprintf(stderr, "Fortran abort routine called\n"); 6: _cleanup(); 7: abort(); 8: }