From 4a589d309fac1884ddcdac7e78c54369e7d2172f Mon Sep 17 00:00:00 2001 From: fxcoudert Date: Mon, 7 Jul 2014 09:13:48 +0000 Subject: * runtime/stop.c: Use C11 _Noreturn. * libgfortran.h: Use C11 _Noreturn in prototypes. Move REALPART, IMAGPART and COMPLEX_ASSIGN macros... * intrinsics/c99_functions.c: ... here. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212327 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/intrinsics/c99_functions.c | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'libgfortran/intrinsics') diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c index 0e4589ae307..728ddb16099 100644 --- a/libgfortran/intrinsics/c99_functions.c +++ b/libgfortran/intrinsics/c99_functions.c @@ -39,6 +39,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see # endif #endif +/* Macros to get real and imaginary parts of a complex, and set + a complex value. */ +#define REALPART(z) (__real__(z)) +#define IMAGPART(z) (__imag__(z)) +#define COMPLEX_ASSIGN(z_, r_, i_) {__real__(z_) = (r_); __imag__(z_) = (i_);} + + /* Prototypes are included to silence -Wstrict-prototypes -Wmissing-prototypes. */ -- cgit v1.2.1