From 8b198102220210ef6a61477d9a45564c206ee6b5 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Sat, 28 Jun 2014 14:17:41 +0000 Subject: re PR fortran/29383 (Fortran 2003/F95[TR15580:1999]: Floating point exception (IEEE) support) PR fortran/29383 gcc/fortran/ * gfortran.h (gfc_simplify_ieee_selected_real_kind): New prototype. * libgfortran.h (GFC_FPE_*): Use simple integer values, valid in both C and Fortran. * expr.c (gfc_check_init_expr): Simplify IEEE_SELECTED_REAL_KIND. * simplify.c (gfc_simplify_ieee_selected_real_kind): New function. * module.c (mio_symbol): Keep track of symbols which came from intrinsic modules. (gfc_use_module): Keep track of the IEEE modules. * trans-decl.c (gfc_get_symbol_decl): Adjust code since we have new intrinsic modules. (gfc_build_builtin_function_decls): Build decls for ieee_procedure_entry and ieee_procedure_exit. (is_from_ieee_module, is_ieee_module_used, save_fp_state, restore_fp_state): New functions. (gfc_generate_function_code): Save and restore floating-point state on procedure entry/exit, when IEEE modules are used. * intrinsic.texi: Document the IEEE modules. libgfortran/ * configure.host: Add checks for IEEE support, rework priorities. * configure.ac: Define IEEE_SUPPORT, check for fpsetsticky and fpresetsticky. * configure: Regenerate. * Makefile.am: Build new ieee files, install IEEE_* modules. * Makefile.in: Regenerate. * gfortran.map (GFORTRAN_1.6): Add new symbols. * libgfortran.h (get_fpu_trap_exceptions, set_fpu_trap_exceptions, support_fpu_trap, set_fpu_except_flags, support_fpu_flag, support_fpu_rounding_mode, get_fpu_state, set_fpu_state): New prototypes. * config/fpu-*.h (get_fpu_trap_exceptions, set_fpu_trap_exceptions, support_fpu_trap, set_fpu_except_flags, support_fpu_flag, support_fpu_rounding_mode, get_fpu_state, set_fpu_state): New functions. * ieee/ieee_features.F90: New file. * ieee/ieee_exceptions.F90: New file. * ieee/ieee_arithmetic.F90: New file. * ieee/ieee_helper.c: New file. gcc/testsuite/ * lib/target-supports.exp (check_effective_target_fortran_ieee): New function. * gfortran.dg/ieee/ieee.exp: New file. * gfortran.dg/ieee/ieee_1.F90: New file. * gfortran.dg/ieee/ieee_2.f90: New file. * gfortran.dg/ieee/ieee_3.f90: New file. * gfortran.dg/ieee/ieee_4.f90: New file. * gfortran.dg/ieee/ieee_5.f90: New file. * gfortran.dg/ieee/ieee_6.f90: New file. * gfortran.dg/ieee/ieee_7.f90: New file. * gfortran.dg/ieee/ieee_rounding_1.f90: New file. From-SVN: r212102 --- libgfortran/libgfortran.h | 26 +++++++++++++++++++++++++- 1 file changed, 25 insertions(+), 1 deletion(-) (limited to 'libgfortran/libgfortran.h') diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index c8c09f6910c..8179ceab739 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -754,15 +754,39 @@ internal_proto(gf_strerror); extern void set_fpu (void); internal_proto(set_fpu); +extern int get_fpu_trap_exceptions (void); +internal_proto(get_fpu_trap_exceptions); + +extern void set_fpu_trap_exceptions (int, int); +internal_proto(set_fpu_trap_exceptions); + +extern int support_fpu_trap (int); +internal_proto(support_fpu_trap); + extern int get_fpu_except_flags (void); internal_proto(get_fpu_except_flags); -extern void set_fpu_rounding_mode (int round); +extern void set_fpu_except_flags (int, int); +internal_proto(set_fpu_except_flags); + +extern int support_fpu_flag (int); +internal_proto(support_fpu_flag); + +extern void set_fpu_rounding_mode (int); internal_proto(set_fpu_rounding_mode); extern int get_fpu_rounding_mode (void); internal_proto(get_fpu_rounding_mode); +extern int support_fpu_rounding_mode (int); +internal_proto(support_fpu_rounding_mode); + +extern void get_fpu_state (void *); +internal_proto(get_fpu_state); + +extern void set_fpu_state (void *); +internal_proto(set_fpu_state); + /* memory.c */ extern void *xmalloc (size_t) __attribute__ ((malloc)); -- cgit v1.2.3