squiid/llvm
1
0
Fork 0
Code Issues Pull requests Activity

[flang] Keep PURE in IEEE functions

Browse source 
PURE keyword should be kept in `__fortran_ieee_exceptions.f90`
and `ieee_arithmetic.f90` and not removed as done in
https://reviews.llvm.org/D128431

Reviewed By: vdonaldson

Differential Revision: https://reviews.llvm.org/D128498
This commit is contained in:
Valentin Clement 2022-06-24 09:10:03 +02:00
parent 753b766dea
commit aeb2cd3176
No known key found for this signature in database
GPG key ID: 086D54783C928776
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
flang/module/__fortran_ieee_exceptions.f90
View file

@ -124,13 +124,13 @@ module __Fortran_ieee_exceptions
end interface
#define IEEE_SUPPORT_FLAG_R(XKIND) \
logical function ieee_support_flag_a##XKIND(flag, x); \
pure logical function ieee_support_flag_a##XKIND(flag, x); \
import ieee_flag_type; \
type(ieee_flag_type), intent(in) :: flag; \
real(XKIND), intent(in) :: x(..); \
end function ieee_support_flag_a##XKIND;
interface ieee_support_flag
logical function ieee_support_flag(flag)
pure logical function ieee_support_flag(flag)
import ieee_flag_type
type(ieee_flag_type), intent(in) :: flag
end function ieee_support_flag

2
flang/module/ieee_arithmetic.f90
View file

@ -514,7 +514,7 @@ module ieee_arithmetic
real(XKIND), intent(in) :: x(..); \
end function ieee_support_rounding_a##XKIND;
interface ieee_support_rounding
logical function ieee_support_rounding(round_value)
pure logical function ieee_support_rounding(round_value)
import ieee_round_type
type(ieee_round_type), intent(in) :: round_value
end function ieee_support_rounding