xref: /netbsd-src/external/gpl3/gcc/dist/libphobos/testsuite/libphobos.exceptions/rt_trap_exceptions.d (revision b1e838363e3c6fc78a55519254d99869742dd33c) 
1 // { dg-shouldfail "uncaught exception" }
2 // { dg-output "gcc.deh.*: uncaught exception" }
3 // Code adapted from
4 // http://arsdnet.net/this-week-in-d/2016-aug-07.html
5 extern extern(C) __gshared bool rt_trapExceptions;
6 extern extern(C) int _d_run_main(int, char**, void*) @system;
7 
main(int argc,char ** argv)8 extern(C) int main(int argc, char** argv) {
9     rt_trapExceptions = false;
10     return _d_run_main(argc, argv, &_main);
11 }
12 
_main()13 int _main() {
14     throw new Exception("this will abort");
15 }
16