]>
Commit | Line | Data |
---|---|---|
113020dc TS |
1 | /* OpenACC Runtime Fortran wrapper routines |
2 | ||
818ab71a | 3 | Copyright (C) 2014-2016 Free Software Foundation, Inc. |
113020dc TS |
4 | |
5 | Contributed by Mentor Embedded. | |
6 | ||
7 | This file is part of the GNU Offloading and Multi Processing Library | |
8 | (libgomp). | |
9 | ||
10 | Libgomp is free software; you can redistribute it and/or modify it | |
11 | under the terms of the GNU General Public License as published by | |
12 | the Free Software Foundation; either version 3, or (at your option) | |
13 | any later version. | |
14 | ||
15 | Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY | |
16 | WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS | |
17 | FOR A PARTICULAR PURPOSE. See the GNU General Public License for | |
18 | more details. | |
19 | ||
20 | Under Section 7 of GPL version 3, you are granted additional | |
21 | permissions described in the GCC Runtime Library Exception, version | |
22 | 3.1, as published by the Free Software Foundation. | |
23 | ||
24 | You should have received a copy of the GNU General Public License and | |
25 | a copy of the GCC Runtime Library Exception along with this program; | |
26 | see the files COPYING3 and COPYING.RUNTIME respectively. If not, see | |
27 | <http://www.gnu.org/licenses/>. */ | |
28 | ||
29 | /* Temporary hack; this will be provided by libgfortran. */ | |
30 | ||
31 | extern void _gfortran_abort (void); | |
32 | ||
33 | __asm__ ("// BEGIN GLOBAL FUNCTION DECL: _gfortran_abort\n" | |
34 | ".visible .func _gfortran_abort;\n" | |
35 | "// BEGIN GLOBAL FUNCTION DEF: _gfortran_abort\n" | |
36 | ".visible .func _gfortran_abort\n" | |
37 | "{\n" | |
38 | "trap;\n" | |
39 | "ret;\n" | |
40 | "}\n"); |