Skip to content

Commit 2565f9f

Browse files
authored
[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.
1 parent d343529 commit 2565f9f

File tree

1 file changed

+2
-4
lines changed

1 file changed

+2
-4
lines changed

flang/module/__fortran_ieee_exceptions.f90

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -27,10 +27,8 @@
2727
ieee_denorm = ieee_flag_type(32) ! PGI extension
2828

2929
type(ieee_flag_type), parameter :: &
30-
ieee_usual(*) = [ &
31-
ieee_overflow, ieee_divide_by_zero, ieee_invalid ], &
32-
ieee_all(*) = [ &
33-
ieee_usual, ieee_underflow, ieee_inexact, ieee_denorm ]
30+
ieee_usual(*) = [ ieee_overflow, ieee_divide_by_zero, ieee_invalid ], &
31+
ieee_all(*) = [ ieee_usual, ieee_underflow, ieee_inexact ]
3432

3533
type :: ieee_modes_type ! Fortran 2018, 17.7
3634
private

0 commit comments

Comments
 (0)