maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[flang] Fixed the declarations of IEEE_SUPPORT_FLAG and IEEE_SUPPORT_HALTING to 

be functions rather than subroutines.  Note that Table 17.3 in the
standard summarizes the contents of IEEE_EXCEPTIONS with the details
specified in section 17.11.

Original-commit: flang-compiler/f18@fca58d479d
Reviewed-on: https://github.com/flang-compiler/f18/pull/730
This commit is contained in:
Pete Steinfeld 2019-09-10 12:43:16 -07:00
parent 4fd8ef1a16
commit f8cfc7cdf9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
flang/module/ieee_exceptions.f90
View File

@ -78,13 +78,13 @@ module ieee_exceptions
type(ieee_status_type), intent(in) :: status type(ieee_status_type), intent(in) :: status
end subroutine ieee_set_status end subroutine ieee_set_status
subroutine ieee_support_flag(flag, x) pure logical function ieee_support_flag(flag, x)
type(ieee_flag_type), intent(in) :: flag type(ieee_flag_type), intent(in) :: flag
real, intent(in), optional :: x real, intent(in), optional :: x
end subroutine ieee_support_flag end function ieee_support_flag
subroutine ieee_support_halting(flag) pure logical function ieee_support_halting(flag)
type(ieee_flag_type), intent(in) :: flag type(ieee_flag_type), intent(in) :: flag
end subroutine ieee_support_halting end function ieee_support_halting
end module ieee_exceptions end module ieee_exceptions