[flang] Back out bad commit of f18 module files

Original-commit: flang-compiler/f18@230117c4376661b3ea44227a4f279dd66eeda894
Reviewed-on: https://github.com/flang-compiler/f18/pull/531
Tree-same-pre-rewrite: false

diff --git a/flang/module/ieee_arithmetic.f18.mod b/flang/module/ieee_arithmetic.f18.mod
deleted file mode 100644 (file)
index 1483895..0000000
--- a/flang/module/ieee_arithmetic.f18.mod
+++ /dev/null
@@ -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

diff --git a/flang/module/ieee_exceptions.f18.mod b/flang/module/ieee_exceptions.f18.mod
deleted file mode 100644 (file)
index 0c68dd0..0000000
--- a/flang/module/ieee_exceptions.f18.mod
+++ /dev/null
@@ -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

diff --git a/flang/module/ieee_features.f18.mod b/flang/module/ieee_features.f18.mod
deleted file mode 100644 (file)
index a3fc079..0000000
--- a/flang/module/ieee_features.f18.mod
+++ /dev/null
@@ -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

diff --git a/flang/module/iso_c_binding.f18.mod b/flang/module/iso_c_binding.f18.mod
deleted file mode 100644 (file)
index d0777b9..0000000
--- a/flang/module/iso_c_binding.f18.mod
+++ /dev/null
@@ -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

diff --git a/flang/module/iso_fortran_env.f18.mod b/flang/module/iso_fortran_env.f18.mod
deleted file mode 100644 (file)
index b729c2b..0000000
--- a/flang/module/iso_fortran_env.f18.mod
+++ /dev/null
@@ -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