OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/85166 ([nvptx, libgfortran] Libgomp fortran tests using stop in offloaded fns fail to compile) 

2018-04-04  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/85166
	* runtime/minimal.c (stop_numeric): Add new function in order to
	implement numeric stop on minimal targets.

From-SVN: r259072
This commit is contained in:
Thomas Koenig 2018-04-04 09:26:13 +00:00
parent 76dc9cb597
commit bb347ee227
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2018-04-04 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/85166
* runtime/minimal.c (stop_numeric): Add new function in order to
implement numeric stop on minimal targets.
2018-03-28 Jakub Jelinek <jakub@redhat.com>
* io/io.h (IOPARM_DT_DEFAULT_EXP): Rename to ...

14
libgfortran/runtime/minimal.c
View File

@ -187,3 +187,17 @@ sys_abort (void)
abort();
}
/* A numeric STOP statement. */
extern _Noreturn void stop_numeric (int, bool);
export_proto(stop_numeric);
void
stop_numeric (int code, bool quiet)
{
if (!quiet)
printf ("STOP %d\n", code);
exit (code);
}