[flang-commits] [flang] 2565f9f - [flang] Remove IEEE_DENORM from IEEE_ALL (#67573)

[via flang-commits]

Author: Peter Klausler
Date: 2023-10-16T16:36:46-07:00
New Revision: 2565f9f49b79e11ab613f125cb4a8daa87f4bab6

URL: https://github.com/llvm/llvm-project/commit/2565f9f49b79e11ab613f125cb4a8daa87f4bab6
DIFF: https://github.com/llvm/llvm-project/commit/2565f9f49b79e11ab613f125cb4a8daa87f4bab6.diff

LOG: [flang] Remove IEEE_DENORM from IEEE_ALL (#67573)

The array of all exceptions IEEE_ALL defined in the intrinsic module
IEEE_EXCEPTIONS should contain only what the standard mandates. Existing
code depends on it having only five elements. The legacy extension
exception flag IEEE_DENORM shouldn't be an element.

Added: 
    

Modified: 
    flang/module/__fortran_ieee_exceptions.f90

Removed: 
    


################################################################################
diff  --git a/flang/module/__fortran_ieee_exceptions.f90 b/flang/module/__fortran_ieee_exceptions.f90
index 77dc6f85517869b..785c4adaec25d55 100644
--- a/flang/module/__fortran_ieee_exceptions.f90
+++ b/flang/module/__fortran_ieee_exceptions.f90
@@ -27,10 +27,8 @@
     ieee_denorm = ieee_flag_type(32) ! PGI extension
 
   type(ieee_flag_type), parameter :: &
-    ieee_usual(*) = [ &
-      ieee_overflow, ieee_divide_by_zero, ieee_invalid ], &
-    ieee_all(*) = [ &
-      ieee_usual, ieee_underflow, ieee_inexact, ieee_denorm ]
+    ieee_usual(*) = [ ieee_overflow, ieee_divide_by_zero, ieee_invalid ], &
+    ieee_all(*) = [ ieee_usual, ieee_underflow, ieee_inexact ]
 
   type :: ieee_modes_type ! Fortran 2018, 17.7
     private