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

[Peter Klausler via flang-commits]

https://github.com/klausler updated https://github.com/llvm/llvm-project/pull/67573

>From 7d57c1013b6e896c06df5971dc0873bd4ecf2006 Mon Sep 17 00:00:00 2001
From: Peter Klausler <pklausler at nvidia.com>
Date: Wed, 27 Sep 2023 09:17:28 -0700
Subject: [PATCH] [flang] Remove IEEE_DENORM from IEEE_ALL

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.
---
 flang/module/__fortran_ieee_exceptions.f90 | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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