38 lines · plain
1!===-- module/ieee_features.f90 --------------------------------------------===!2!3! Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.4! See https://llvm.org/LICENSE.txt for license information.5! SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception6!7!===------------------------------------------------------------------------===!8 9! See Fortran 2018, clause 17.210 11module ieee_features12 implicit none13 14 ! Set PRIVATE by default to explicitly only export what is meant15 ! to be exported by this MODULE.16 private17 18 type, public :: ieee_features_type19 private20 integer(kind=1) :: feature = 021 end type ieee_features_type22 23 type(ieee_features_type), parameter, public :: &24 ieee_datatype = ieee_features_type(1), &25 ieee_denormal = ieee_features_type(2), &26 ieee_divide = ieee_features_type(3), &27 ieee_halting = ieee_features_type(4), &28 ieee_inexact_flag = ieee_features_type(5), &29 ieee_inf = ieee_features_type(6), &30 ieee_invalid_flag = ieee_features_type(7), &31 ieee_nan = ieee_features_type(8), &32 ieee_rounding = ieee_features_type(9), &33 ieee_sqrt = ieee_features_type(10), &34 ieee_subnormal = ieee_features_type(11), &35 ieee_underflow_flag = ieee_features_type(12)36 37end module ieee_features38