diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2014-07-07 09:13:48 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2014-07-07 09:13:48 +0000 |
| commit | 77777b33a88e950ff1f7fc263e600a694816f468 (patch) | |
| tree | cbd088b7bacddb90ca0051f9018f8994fbe6ebde /libgfortran/intrinsics/c99_functions.c | |
| parent | 8adb5dc735298d2113de33ce442831f4dab9d215 (diff) | |
| download | gcc-77777b33a88e950ff1f7fc263e600a694816f468.zip gcc-77777b33a88e950ff1f7fc263e600a694816f468.tar.gz gcc-77777b33a88e950ff1f7fc263e600a694816f468.tar.bz2 | |
stop.c: Use C11 _Noreturn.
* 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.
From-SVN: r212327
Diffstat (limited to 'libgfortran/intrinsics/c99_functions.c')
| -rw-r--r-- | libgfortran/intrinsics/c99_functions.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c index 0e4589a..728ddb16 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. */ |