/* We don't have debugging support or core dumps
   in openVMS, so this is the only way to find out where
   abort () was called.  */

#include <stdio.h>

void
vms_abort (char *file, int line)
{
  fprintf (stderr, "Abort in %s:%d\n", file, line);
#undef abort
  abort ();
}