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