[flang] Mark ieee_get_flag and ieee_get_halting_mode as elemental

Original-commit: flang-compiler/f18@d6237fa311
Reviewed-on: https://github.com/flang-compiler/f18/pull/886
This commit is contained in:
Kiran Chandramohan 2019-12-20 20:28:18 +00:00
parent c1ccbcf913
commit 69d01593b4
1 changed files with 2 additions and 2 deletions

View File

@ -53,12 +53,12 @@ module ieee_exceptions
end interface
contains
subroutine ieee_get_flag(flag, flag_value)
elemental subroutine ieee_get_flag(flag, flag_value)
type(ieee_flag_type), intent(in) :: flag
logical, intent(out) :: flag_value
end subroutine ieee_get_flag
subroutine ieee_get_halting_mode(flag, halting)
elemental subroutine ieee_get_halting_mode(flag, halting)
type(ieee_flag_type), intent(in) :: flag
logical, intent(out) :: halting
end subroutine ieee_get_halting_mode