forked from OSchip/llvm-project
[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:
parent
c1ccbcf913
commit
69d01593b4
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue