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

[flang] Intrinsic module file update 

Use symbolic iostat values in iso_fortran_env.f90.
Add generic names to the interfaces in __fortran_ieee_exceptions.f90.
This commit is contained in:
V Donaldson 2022-07-12 09:27:40 -07:00
parent 0b266f22c3
commit aba0d3cd94
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
flang/module/__fortran_ieee_exceptions.f90
View File

@ -53,7 +53,7 @@ module __Fortran_ieee_exceptions
#define PRIVATE_R(G) private :: \ #define PRIVATE_R(G) private :: \
G##_a2, G##_a3, G##_a4, G##_a8, G##_a10, G##_a16 G##_a2, G##_a3, G##_a4, G##_a8, G##_a10, G##_a16
interface interface ieee_get_flag
elemental subroutine ieee_get_flag(flag, flag_value) elemental subroutine ieee_get_flag(flag, flag_value)
import ieee_flag_type import ieee_flag_type
type(ieee_flag_type), intent(in) :: flag type(ieee_flag_type), intent(in) :: flag
@ -61,7 +61,7 @@ module __Fortran_ieee_exceptions
end subroutine ieee_get_flag end subroutine ieee_get_flag
end interface end interface
interface interface ieee_get_halting_mode
elemental subroutine ieee_get_halting_mode(flag, halting) elemental subroutine ieee_get_halting_mode(flag, halting)
import ieee_flag_type import ieee_flag_type
type(ieee_flag_type), intent(in) :: flag type(ieee_flag_type), intent(in) :: flag
@ -69,14 +69,14 @@ module __Fortran_ieee_exceptions
end subroutine ieee_get_halting_mode end subroutine ieee_get_halting_mode
end interface end interface
interface interface ieee_get_modes
subroutine ieee_get_modes(modes) subroutine ieee_get_modes(modes)
import ieee_modes_type import ieee_modes_type
type(ieee_modes_type), intent(out) :: modes type(ieee_modes_type), intent(out) :: modes
end subroutine ieee_get_modes end subroutine ieee_get_modes
end interface end interface
interface interface ieee_get_status
subroutine ieee_get_status(status) subroutine ieee_get_status(status)
import ieee_status_type import ieee_status_type
type(ieee_status_type), intent(out) :: status type(ieee_status_type), intent(out) :: status
@ -109,14 +109,14 @@ module __Fortran_ieee_exceptions
PRIVATE_L(IEEE_SET_HALTING_MODE) PRIVATE_L(IEEE_SET_HALTING_MODE)
#undef IEEE_SET_HALTING_MODE_L #undef IEEE_SET_HALTING_MODE_L
interface interface ieee_set_modes
subroutine ieee_set_modes(modes) subroutine ieee_set_modes(modes)
import ieee_modes_type import ieee_modes_type
type(ieee_modes_type), intent(in) :: modes type(ieee_modes_type), intent(in) :: modes
end subroutine ieee_set_modes end subroutine ieee_set_modes
end interface end interface
interface interface ieee_set_status
subroutine ieee_set_status(status) subroutine ieee_set_status(status)
import ieee_status_type import ieee_status_type
type(ieee_status_type), intent(in) :: status type(ieee_status_type), intent(in) :: status
@ -139,7 +139,7 @@ module __Fortran_ieee_exceptions
PRIVATE_R(IEEE_SUPPORT_FLAG) PRIVATE_R(IEEE_SUPPORT_FLAG)
#undef IEEE_SUPPORT_FLAG_R #undef IEEE_SUPPORT_FLAG_R
interface interface ieee_support_halting
pure logical function ieee_support_halting(flag) pure logical function ieee_support_halting(flag)
import ieee_flag_type import ieee_flag_type
type(ieee_flag_type), intent(in) :: flag type(ieee_flag_type), intent(in) :: flag

6
flang/module/iso_fortran_env.f90
View File

@ -130,8 +130,10 @@ module iso_fortran_env
integer, parameter :: input_unit = 5, output_unit = 6 integer, parameter :: input_unit = 5, output_unit = 6
integer, parameter :: error_unit = 0 integer, parameter :: error_unit = 0
integer, parameter :: iostat_end = -1, iostat_eor = -2 integer, parameter :: iostat_end = FORTRAN_RUNTIME_IOSTAT_END
integer, parameter :: iostat_inquire_internal_unit = -1 integer, parameter :: iostat_eor = FORTRAN_RUNTIME_IOSTAT_EOR
integer, parameter :: iostat_inquire_internal_unit = &
FORTRAN_RUNTIME_IOSTAT_INQUIRE_INTERNAL_UNIT
integer, parameter :: character_storage_size = 8 integer, parameter :: character_storage_size = 8
integer, parameter :: file_storage_size = 8 integer, parameter :: file_storage_size = 8