flang/module/ieee_features.f90

   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-exception
   6 !
   7 !===------------------------------------------------------------------------===!
   8
   9 ! See Fortran 2018, clause 17.2
  10
  11 module ieee_features
  12   implicit none
  13
  14   ! Set PRIVATE by default to explicitly only export what is meant
  15   ! to be exported by this MODULE.
  16   private
  17
  18   type, public :: ieee_features_type
  19     private
  20     integer(kind=1) :: feature = 0
  21   end type ieee_features_type
  22
  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
  37 end module ieee_features