1 // Copyright (c) 2018, NVIDIA CORPORATION.  All rights reserved.
2 //
3 // Licensed under the Apache License, Version 2.0 (the "License");
4 // you may not use this file except in compliance with the License.
5 // You may obtain a copy of the License at
6 //
7 //     http://www.apache.org/licenses/LICENSE-2.0
8 //
9 // Unless required by applicable law or agreed to in writing, software
10 // distributed under the License is distributed on an "AS IS" BASIS,
11 // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12 // See the License for the specific language governing permissions and
13 // limitations under the License.
14 
15 #ifndef FORTRAN_TEST_EVALUATE_FP_TESTING_H_
16 #define FORTRAN_TEST_EVALUATE_FP_TESTING_H_
17 
18 #include "../../lib/evaluate/common.h"
19 #include <fenv.h>
20 
21 using Fortran::evaluate::RealFlags;
22 using Fortran::evaluate::Rounding;
23 using Fortran::evaluate::RoundingMode;
24 
25 class ScopedHostFloatingPointEnvironment {
26 public:
27   ScopedHostFloatingPointEnvironment(bool treatSubnormalOperandsAsZero = false,
28       bool flushSubnormalResultsToZero = false);
29   ~ScopedHostFloatingPointEnvironment();
30   void ClearFlags() const;
31   static RealFlags CurrentFlags();
32   static void SetRounding(Rounding rounding);
33 
34 private:
35   fenv_t originalFenv_;
36   fenv_t currentFenv_;
37 };
38 
39 #endif  // FORTRAN_TEST_EVALUATE_FP_TESTING_H_
40