forked from OSchip/llvm-project
[flang] Back out bad commit of f18 module files
Original-commit: flang-compiler/f18@230117c437 Reviewed-on: https://github.com/flang-compiler/f18/pull/531 Tree-same-pre-rewrite: false
This commit is contained in:
parent
f7c34914de
commit
b079ed65a3
|
@ -1,115 +0,0 @@
|
|||
!mod$ v1 sum:377fafa870889c4f
|
||||
module ieee_arithmetic
|
||||
type::ieee_class_type
|
||||
integer(1),private::which=0_4
|
||||
end type
|
||||
type(ieee_class_type),parameter::ieee_signaling_nan=ieee_class_type(which=1_1)
|
||||
type(ieee_class_type),parameter::ieee_quiet_nan=ieee_class_type(which=2_1)
|
||||
type(ieee_class_type),parameter::ieee_negative_inf=ieee_class_type(which=3_1)
|
||||
type(ieee_class_type),parameter::ieee_negative_normal=ieee_class_type(which=4_1)
|
||||
type(ieee_class_type),parameter::ieee_negative_denormal=ieee_class_type(which=5_1)
|
||||
type(ieee_class_type),parameter::ieee_negative_zero=ieee_class_type(which=6_1)
|
||||
type(ieee_class_type),parameter::ieee_positive_zero=ieee_class_type(which=7_1)
|
||||
type(ieee_class_type),parameter::ieee_positive_subnormal=ieee_class_type(which=8_1)
|
||||
type(ieee_class_type),parameter::ieee_positive_normal=ieee_class_type(which=9_1)
|
||||
type(ieee_class_type),parameter::ieee_positive_inf=ieee_class_type(which=10_1)
|
||||
type(ieee_class_type),parameter::ieee_other_value=ieee_class_type(which=11_1)
|
||||
type(ieee_class_type),parameter::ieee_negative_subnormal=ieee_class_type(which=5_1)
|
||||
type(ieee_class_type),parameter::ieee_positive_denormal=ieee_class_type(which=5_1)
|
||||
type::ieee_round_type
|
||||
integer(1),private::mode=0_4
|
||||
end type
|
||||
type(ieee_round_type),parameter::ieee_nearest=ieee_round_type(mode=1_1)
|
||||
type(ieee_round_type),parameter::ieee_to_zero=ieee_round_type(mode=2_1)
|
||||
type(ieee_round_type),parameter::ieee_up=ieee_round_type(mode=3_1)
|
||||
type(ieee_round_type),parameter::ieee_down=ieee_round_type(mode=4_1)
|
||||
type(ieee_round_type),parameter::ieee_away=ieee_round_type(mode=5_1)
|
||||
type(ieee_round_type),parameter::ieee_other=ieee_round_type(mode=6_1)
|
||||
generic::operator(==)=>class_eq,round_eq
|
||||
generic::operator(/=)=>class_ne,round_ne
|
||||
generic::ieee_class=>ieee_class_a2,ieee_class_a3,ieee_class_a4,ieee_class_a8,ieee_class_a10,ieee_class_a16
|
||||
generic::ieee_copy_sign=>ieee_copy_sign_a2,ieee_copy_sign_a3,ieee_copy_sign_a4,ieee_copy_sign_a8,ieee_copy_sign_a10,ieee_copy_sign_a16
|
||||
contains
|
||||
elemental function class_eq(x,y)
|
||||
logical(4)::class_eq
|
||||
type(ieee_class_type),intent(in)::x
|
||||
type(ieee_class_type),intent(in)::y
|
||||
end
|
||||
elemental function class_ne(x,y)
|
||||
logical(4)::class_ne
|
||||
type(ieee_class_type),intent(in)::x
|
||||
type(ieee_class_type),intent(in)::y
|
||||
end
|
||||
elemental function round_eq(x,y)
|
||||
logical(4)::round_eq
|
||||
type(ieee_round_type),intent(in)::x
|
||||
type(ieee_round_type),intent(in)::y
|
||||
end
|
||||
elemental function round_ne(x,y)
|
||||
logical(4)::round_ne
|
||||
type(ieee_round_type),intent(in)::x
|
||||
type(ieee_round_type),intent(in)::y
|
||||
end
|
||||
elemental private function classify(expo,maxexpo,negative,significandnz,quietbit)
|
||||
type(ieee_class_type)::classify
|
||||
integer(4),intent(in)::expo
|
||||
integer(4),intent(in)::maxexpo
|
||||
logical(4),intent(in)::negative
|
||||
logical(4),intent(in)::significandnz
|
||||
logical(4),intent(in)::quietbit
|
||||
end
|
||||
elemental function ieee_class_a2(x)
|
||||
type(ieee_class_type)::ieee_class_a2
|
||||
real(2),intent(in)::x
|
||||
end
|
||||
elemental function ieee_class_a3(x)
|
||||
type(ieee_class_type)::ieee_class_a3
|
||||
real(3),intent(in)::x
|
||||
end
|
||||
elemental function ieee_class_a4(x)
|
||||
type(ieee_class_type)::ieee_class_a4
|
||||
real(4),intent(in)::x
|
||||
end
|
||||
elemental function ieee_class_a8(x)
|
||||
type(ieee_class_type)::ieee_class_a8
|
||||
real(8),intent(in)::x
|
||||
end
|
||||
elemental function ieee_class_a10(x)
|
||||
type(ieee_class_type)::ieee_class_a10
|
||||
real(10),intent(in)::x
|
||||
end
|
||||
elemental function ieee_class_a16(x)
|
||||
type(ieee_class_type)::ieee_class_a16
|
||||
real(16),intent(in)::x
|
||||
end
|
||||
elemental function ieee_copy_sign_a2(x,y)
|
||||
real(2)::ieee_copy_sign_a2
|
||||
real(2),intent(in)::x
|
||||
real(2),intent(in)::y
|
||||
end
|
||||
elemental function ieee_copy_sign_a3(x,y)
|
||||
real(3)::ieee_copy_sign_a3
|
||||
real(3),intent(in)::x
|
||||
real(3),intent(in)::y
|
||||
end
|
||||
elemental function ieee_copy_sign_a4(x,y)
|
||||
real(4)::ieee_copy_sign_a4
|
||||
real(4),intent(in)::x
|
||||
real(4),intent(in)::y
|
||||
end
|
||||
elemental function ieee_copy_sign_a8(x,y)
|
||||
real(8)::ieee_copy_sign_a8
|
||||
real(8),intent(in)::x
|
||||
real(8),intent(in)::y
|
||||
end
|
||||
elemental function ieee_copy_sign_a10(x,y)
|
||||
real(10)::ieee_copy_sign_a10
|
||||
real(10),intent(in)::x
|
||||
real(10),intent(in)::y
|
||||
end
|
||||
elemental function ieee_copy_sign_a16(x,y)
|
||||
real(16)::ieee_copy_sign_a16
|
||||
real(16),intent(in)::x
|
||||
real(16),intent(in)::y
|
||||
end
|
||||
end
|
|
@ -1,30 +0,0 @@
|
|||
!mod$ v1 sum:1e5a37c09db771dd
|
||||
module ieee_exceptions
|
||||
type::ieee_flag_type
|
||||
integer(1),private::flag=0_4
|
||||
end type
|
||||
type(ieee_flag_type),parameter::ieee_invalid=ieee_flag_type(flag=1_1)
|
||||
type(ieee_flag_type),parameter::ieee_overflow=ieee_flag_type(flag=2_1)
|
||||
type(ieee_flag_type),parameter::ieee_divide_by_zero=ieee_flag_type(flag=4_1)
|
||||
type(ieee_flag_type),parameter::ieee_underflow=ieee_flag_type(flag=8_1)
|
||||
type(ieee_flag_type),parameter::ieee_inexact=ieee_flag_type(flag=16_1)
|
||||
type(ieee_flag_type),parameter::ieee_usual(1_8:)=[ieee_flag_type::ieee_flag_type(flag=2_1),ieee_flag_type(flag=4_1),ieee_flag_type(flag=1_1)]
|
||||
type(ieee_flag_type),parameter::ieee_all(1_8:)=[ieee_flag_type::ieee_flag_type(flag=2_1),ieee_flag_type(flag=4_1),ieee_flag_type(flag=1_1),ieee_flag_type(flag=8_1),ieee_flag_type(flag=16_1)]
|
||||
type::ieee_modes_type
|
||||
end type
|
||||
type::ieee_status_type
|
||||
end type
|
||||
contains
|
||||
subroutine ieee_get_modes(modes)
|
||||
type(ieee_modes_type),intent(out)::modes
|
||||
end
|
||||
subroutine ieee_set_modes(modes)
|
||||
type(ieee_modes_type),intent(in)::modes
|
||||
end
|
||||
subroutine ieee_get_status(status)
|
||||
type(ieee_status_type),intent(out)::status
|
||||
end
|
||||
subroutine ieee_set_status(status)
|
||||
type(ieee_status_type),intent(in)::status
|
||||
end
|
||||
end
|
|
@ -1,18 +0,0 @@
|
|||
!mod$ v1 sum:0fa84ac68ab883f5
|
||||
module ieee_features
|
||||
type::ieee_features_type
|
||||
integer(1),private::feature=0_4
|
||||
end type
|
||||
type(ieee_features_type),parameter::ieee_datatype=ieee_features_type(feature=1_1)
|
||||
type(ieee_features_type),parameter::ieee_denormal=ieee_features_type(feature=2_1)
|
||||
type(ieee_features_type),parameter::ieee_divide=ieee_features_type(feature=3_1)
|
||||
type(ieee_features_type),parameter::ieee_halting=ieee_features_type(feature=4_1)
|
||||
type(ieee_features_type),parameter::ieee_inexact_flag=ieee_features_type(feature=5_1)
|
||||
type(ieee_features_type),parameter::ieee_inf=ieee_features_type(feature=6_1)
|
||||
type(ieee_features_type),parameter::ieee_invalid_flag=ieee_features_type(feature=7_1)
|
||||
type(ieee_features_type),parameter::ieee_nan=ieee_features_type(feature=8_1)
|
||||
type(ieee_features_type),parameter::ieee_rounding=ieee_features_type(feature=9_1)
|
||||
type(ieee_features_type),parameter::ieee_sqrt=ieee_features_type(feature=10_1)
|
||||
type(ieee_features_type),parameter::ieee_subnormal=ieee_features_type(feature=11_1)
|
||||
type(ieee_features_type),parameter::ieee_underflow_flag=ieee_features_type(feature=12_1)
|
||||
end
|
|
@ -1,54 +0,0 @@
|
|||
!mod$ v1 sum:9822adcde8c57677
|
||||
module iso_c_binding
|
||||
type::c_ptr
|
||||
integer(8)::address
|
||||
end type
|
||||
type::c_funptr
|
||||
integer(8)::address
|
||||
end type
|
||||
type(c_ptr),parameter::c_null_ptr=c_ptr(address=0_8)
|
||||
type(c_funptr),parameter::c_null_funptr=c_funptr(address=0_8)
|
||||
integer(4),parameter::c_int8_t=1_4
|
||||
integer(4),parameter::c_int16_t=2_4
|
||||
integer(4),parameter::c_int32_t=4_4
|
||||
integer(4),parameter::c_int64_t=8_4
|
||||
integer(4),parameter::c_int128_t=16_4
|
||||
integer(4),parameter::c_int=4_4
|
||||
integer(4),parameter::c_short=2_4
|
||||
integer(4),parameter::c_long=8_4
|
||||
integer(4),parameter::c_long_long=8_4
|
||||
integer(4),parameter::c_signed_char=1_4
|
||||
integer(4),parameter::c_size_t=8_4
|
||||
integer(4),parameter::c_intmax_t=16_4
|
||||
integer(4),parameter::c_intptr_t=8_4
|
||||
integer(4),parameter::c_ptrdiff_t=8_4
|
||||
integer(4),parameter::c_int_least8_t=1_4
|
||||
integer(4),parameter::c_int_fast8_t=1_4
|
||||
integer(4),parameter::c_int_least16_t=2_4
|
||||
integer(4),parameter::c_int_fast16_t=2_4
|
||||
integer(4),parameter::c_int_least32_t=4_4
|
||||
integer(4),parameter::c_int_fast32_t=4_4
|
||||
integer(4),parameter::c_int_least64_t=8_4
|
||||
integer(4),parameter::c_int_fast64_t=8_4
|
||||
integer(4),parameter::c_int_least128_t=16_4
|
||||
integer(4),parameter::c_int_fast128_t=16_4
|
||||
integer(4),parameter::c_float=4_4
|
||||
integer(4),parameter::c_double=8_4
|
||||
integer(4),parameter::c_long_double=10_4
|
||||
integer(4),parameter::c_float_complex=4_4
|
||||
integer(4),parameter::c_double_complex=8_4
|
||||
integer(4),parameter::c_long_double_complex=10_4
|
||||
integer(4),parameter::c_bool=1_4
|
||||
integer(4),parameter::c_char=1_4
|
||||
contains
|
||||
function c_associated(c_ptr_1,c_ptr_2)
|
||||
logical(4)::c_associated
|
||||
type(c_ptr),intent(in)::c_ptr_1
|
||||
type(c_ptr),intent(in),optional::c_ptr_2
|
||||
end
|
||||
subroutine c_f_pointer(cptr,fptr,shape)
|
||||
type(c_ptr),intent(in)::cptr
|
||||
type(*),intent(out),pointer::fptr(..)
|
||||
integer(4),intent(in),optional::shape(1_8:)
|
||||
end
|
||||
end
|
|
@ -1,56 +0,0 @@
|
|||
!mod$ v1 sum:0bfd96183f25666a
|
||||
module iso_fortran_env
|
||||
integer(4),parameter::atomic_int_kind=8_4
|
||||
integer(4),parameter::atomic_logical_kind=8_4
|
||||
integer(4),parameter::character_kinds(1_8:)=[Integer(4)::1_4,2_4,4_4]
|
||||
integer(4),parameter::int8=1_4
|
||||
integer(4),parameter::int16=2_4
|
||||
integer(4),parameter::int32=4_4
|
||||
integer(4),parameter::int64=8_4
|
||||
integer(4),parameter::int128=16_4
|
||||
integer(4),parameter::integer_kinds(1_8:)=[Integer(4)::1_4,2_4,4_4,8_4,16_4]
|
||||
integer(4),parameter::logical8=1_4
|
||||
integer(4),parameter::logical16=2_4
|
||||
integer(4),parameter::logical32=4_4
|
||||
integer(4),parameter::logical64=8_4
|
||||
integer(4),parameter::logical_kinds(1_8:)=[Integer(4)::1_4,2_4,4_4,8_4]
|
||||
integer(4),parameter::real16=2_4
|
||||
integer(4),parameter::real32=4_4
|
||||
integer(4),parameter::real64=8_4
|
||||
integer(4),parameter::real80=10_4
|
||||
integer(4),parameter::real128=16_4
|
||||
integer(4),parameter::real_kinds(1_8:)=[Integer(4)::2_4,3_4,4_4,8_4,10_4,16_4]
|
||||
integer(4),parameter::current_team=-1_4
|
||||
integer(4),parameter::initial_team=-2_4
|
||||
integer(4),parameter::parent_team=-3_4
|
||||
integer(4),parameter::input_unit=5_4
|
||||
integer(4),parameter::output_unit=6_4
|
||||
integer(4),parameter::iostat_end=-1_4
|
||||
integer(4),parameter::iostat_eor=-2_4
|
||||
integer(4),parameter::iostat_inquire_internal_unit=-1_4
|
||||
integer(4),parameter::character_storage_size=8_4
|
||||
integer(4),parameter::file_storage_size=8_4
|
||||
integer(4),parameter::numeric_storage_size=32_4
|
||||
integer(4),parameter::stat_failed_image=-1_4
|
||||
integer(4),parameter::stat_locked=2_4
|
||||
integer(4),parameter::stat_locked_other_image=3_4
|
||||
integer(4),parameter::stat_stopped_image=4_4
|
||||
integer(4),parameter::stat_unlocked=5_4
|
||||
integer(4),parameter::stat_unlocked_failed_image=6_4
|
||||
type::event_type
|
||||
integer(8),private::count=0_4
|
||||
end type
|
||||
type::lock_type
|
||||
integer(8),private::count=0_4
|
||||
end type
|
||||
type::team_type
|
||||
integer(8),private::id=0_4
|
||||
end type
|
||||
contains
|
||||
function compiler_options()
|
||||
character(80_4,1)::compiler_options
|
||||
end
|
||||
function compiler_version()
|
||||
character(80_4,1)::compiler_version
|
||||
end
|
||||
end
|
Loading…
Reference in New Issue