gcc/testsuite/gm2/exceptions/run/pass/mycpp.cpp

   1 /* Copyright (C) 2008-2024 Free Software Foundation, Inc. */
   2 /* This file is part of GNU Modula-2.
   3
   4 GNU Modula-2 is free software; you can redistribute it and/or modify it under
   5 the terms of the GNU General Public License as published by the Free
   6 Software Foundation; either version 2, or (at your option) any later
   7 version.
   8
   9 GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY
  10 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  11 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  12 for more details.
  13
  14 You should have received a copy of the GNU General Public License along
  15 with gm2; see the file COPYING.  If not, write to the Free Software
  16 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
  17
  18 #include <stdio.h>
  19 #include <stdlib.h>
  20
  21 extern "C" void mycpp_test (void);
  22 extern "C" void m2test_try (void);
  23
  24 void mycpp_test (void)
  25 {
  26   int r;
  27
  28   try {
  29     printf("start of main c++ program\n");
  30     m2test_try() ;
  31     printf("ending (should not get here)\n");
  32     exit(1);
  33   }
  34   catch (int i) {
  35     printf("c++ caught exception correctly\n");
  36     exit(0);
  37   }
  38   printf("c++ should not get here\n");
  39   exit(1);
  40 }
  41
  42 extern "C" void _M2_mycpp_init (void)
  43 {
  44   mycpp_test();
  45 }
  46
  47 extern "C" void _M2_mycpp_finish (void)
  48 {
  49 }
  50
  51 extern "C" void _M2_mycpp_ctor (void)
  52 {
  53 }