From f62e99b2a9bbd91163ce8480c774bd8494581d92 Mon Sep 17 00:00:00 2001 From: Peter Klausler 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 77dc6f8551786..785c4adaec25d 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