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

[flang] Intrinsic module file update

Browse source 
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 :: \
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)
import ieee_flag_type
type(ieee_flag_type), intent(in) :: flag
@ -61,7 +61,7 @@ module __Fortran_ieee_exceptions
end subroutine ieee_get_flag
end interface
interface
interface ieee_get_halting_mode
elemental subroutine ieee_get_halting_mode(flag, halting)
import ieee_flag_type
type(ieee_flag_type), intent(in) :: flag
@ -69,14 +69,14 @@ module __Fortran_ieee_exceptions
end subroutine ieee_get_halting_mode
end interface
interface
interface ieee_get_modes
subroutine ieee_get_modes(modes)
import ieee_modes_type
type(ieee_modes_type), intent(out) :: modes
end subroutine ieee_get_modes
end interface
interface
interface ieee_get_status
subroutine ieee_get_status(status)
import ieee_status_type
type(ieee_status_type), intent(out) :: status
@ -109,14 +109,14 @@ module __Fortran_ieee_exceptions
PRIVATE_L(IEEE_SET_HALTING_MODE)
#undef IEEE_SET_HALTING_MODE_L
interface
interface ieee_set_modes
subroutine ieee_set_modes(modes)
import ieee_modes_type
type(ieee_modes_type), intent(in) :: modes
end subroutine ieee_set_modes
end interface
interface
interface ieee_set_status
subroutine ieee_set_status(status)
import ieee_status_type
type(ieee_status_type), intent(in) :: status
@ -139,7 +139,7 @@ module __Fortran_ieee_exceptions
PRIVATE_R(IEEE_SUPPORT_FLAG)
#undef IEEE_SUPPORT_FLAG_R
interface
interface ieee_support_halting
pure logical function ieee_support_halting(flag)
import ieee_flag_type
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 :: error_unit = 0
integer, parameter :: iostat_end = -1, iostat_eor = -2
integer, parameter :: iostat_inquire_internal_unit = -1
integer, parameter :: iostat_end = FORTRAN_RUNTIME_IOSTAT_END
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 :: file_storage_size = 8