Skip to content

R
riscv-gcc-1
Commit 11e07fa4 by Steven G. Kargl
Options

ieee_arithmetic.F90: Re-organize file to eliminate #ifdef ... 

2018-12-20  Steven G. Kargl  <kargl@gcc.gnu.org>

	* libgfortran/ieee/ieee_arithmetic.F90: Re-organize file to 
	eliminate #ifdef ... #endif.  No functional change.

From-SVN: r267312
parent 080cec7f
Showing with 77 additions and 152 deletions
libgfortran/ChangeLog
2018-12-20 Steven G. Kargl <kargl@gcc.gnu.org>
* libgfortran/ieee/ieee_arithmetic.F90: Re-organize file to
eliminate #ifdef ... #endif. No functional change.
2018-12-09 Thomas Koenig <tkoenig@gcc.gnu.org> 2018-12-09 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/88411 PR fortran/88411
......
libgfortran/ieee/ieee_arithmetic.F90
...@@ -228,38 +228,28 @@ module IEEE_ARITHMETIC ...@@ -228,38 +228,28 @@ module IEEE_ARITHMETIC
end function end function
interface interface
COPYSIGN_MACRO(4,4)
COPYSIGN_MACRO(4,8)
#ifdef HAVE_GFC_REAL_10
COPYSIGN_MACRO(4,10)
#endif
#ifdef HAVE_GFC_REAL_16 #ifdef HAVE_GFC_REAL_16
COPYSIGN_MACRO(4,16) COPYSIGN_MACRO(16,16)
#endif
COPYSIGN_MACRO(8,4)
COPYSIGN_MACRO(8,8)
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
COPYSIGN_MACRO(8,10) COPYSIGN_MACRO(16,10)
COPYSIGN_MACRO(10,16)
#endif #endif
#ifdef HAVE_GFC_REAL_16 COPYSIGN_MACRO(16,8)
COPYSIGN_MACRO(16,4)
COPYSIGN_MACRO(8,16) COPYSIGN_MACRO(8,16)
COPYSIGN_MACRO(4,16)
#endif #endif
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
COPYSIGN_MACRO(10,4)
COPYSIGN_MACRO(10,8)
COPYSIGN_MACRO(10,10) COPYSIGN_MACRO(10,10)
#ifdef HAVE_GFC_REAL_16 COPYSIGN_MACRO(10,8)
COPYSIGN_MACRO(10,16) COPYSIGN_MACRO(10,4)
#endif COPYSIGN_MACRO(8,10)
#endif COPYSIGN_MACRO(4,10)
#ifdef HAVE_GFC_REAL_16
COPYSIGN_MACRO(16,4)
COPYSIGN_MACRO(16,8)
#ifdef HAVE_GFC_REAL_10
COPYSIGN_MACRO(16,10)
#endif
COPYSIGN_MACRO(16,16)
#endif #endif
COPYSIGN_MACRO(8,8)
COPYSIGN_MACRO(8,4)
COPYSIGN_MACRO(4,8)
COPYSIGN_MACRO(4,4)
end interface end interface
interface IEEE_COPY_SIGN interface IEEE_COPY_SIGN
...@@ -268,32 +258,22 @@ COPYSIGN_MACRO(16,16) ...@@ -268,32 +258,22 @@ COPYSIGN_MACRO(16,16)
_gfortran_ieee_copy_sign_16_16, & _gfortran_ieee_copy_sign_16_16, &
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
_gfortran_ieee_copy_sign_16_10, & _gfortran_ieee_copy_sign_16_10, &
_gfortran_ieee_copy_sign_10_16, &
#endif #endif
_gfortran_ieee_copy_sign_16_8, & _gfortran_ieee_copy_sign_16_8, &
_gfortran_ieee_copy_sign_16_4, & _gfortran_ieee_copy_sign_16_4, &
_gfortran_ieee_copy_sign_8_16, &
_gfortran_ieee_copy_sign_4_16, &
#endif #endif
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
#ifdef HAVE_GFC_REAL_16
_gfortran_ieee_copy_sign_10_16, &
#endif
_gfortran_ieee_copy_sign_10_10, & _gfortran_ieee_copy_sign_10_10, &
_gfortran_ieee_copy_sign_10_8, & _gfortran_ieee_copy_sign_10_8, &
_gfortran_ieee_copy_sign_10_4, & _gfortran_ieee_copy_sign_10_4, &
#endif
#ifdef HAVE_GFC_REAL_16
_gfortran_ieee_copy_sign_8_16, &
#endif
#ifdef HAVE_GFC_REAL_10
_gfortran_ieee_copy_sign_8_10, & _gfortran_ieee_copy_sign_8_10, &
_gfortran_ieee_copy_sign_4_10, &
#endif #endif
_gfortran_ieee_copy_sign_8_8, & _gfortran_ieee_copy_sign_8_8, &
_gfortran_ieee_copy_sign_8_4, & _gfortran_ieee_copy_sign_8_4, &
#ifdef HAVE_GFC_REAL_16
_gfortran_ieee_copy_sign_4_16, &
#endif
#ifdef HAVE_GFC_REAL_10
_gfortran_ieee_copy_sign_4_10, &
#endif
_gfortran_ieee_copy_sign_4_8, & _gfortran_ieee_copy_sign_4_8, &
_gfortran_ieee_copy_sign_4_4 _gfortran_ieee_copy_sign_4_4
end interface end interface
...@@ -309,38 +289,28 @@ COPYSIGN_MACRO(16,16) ...@@ -309,38 +289,28 @@ COPYSIGN_MACRO(16,16)
end function end function
interface interface
UNORDERED_MACRO(4,4)
UNORDERED_MACRO(4,8)
#ifdef HAVE_GFC_REAL_10
UNORDERED_MACRO(4,10)
#endif
#ifdef HAVE_GFC_REAL_16 #ifdef HAVE_GFC_REAL_16
UNORDERED_MACRO(4,16) UNORDERED_MACRO(16,16)
#endif
UNORDERED_MACRO(8,4)
UNORDERED_MACRO(8,8)
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
UNORDERED_MACRO(8,10) UNORDERED_MACRO(16,10)
UNORDERED_MACRO(10,16)
#endif #endif
#ifdef HAVE_GFC_REAL_16 UNORDERED_MACRO(16,8)
UNORDERED_MACRO(16,4)
UNORDERED_MACRO(8,16) UNORDERED_MACRO(8,16)
UNORDERED_MACRO(4,16)
#endif #endif
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
UNORDERED_MACRO(10,4)
UNORDERED_MACRO(10,8)
UNORDERED_MACRO(10,10) UNORDERED_MACRO(10,10)
#ifdef HAVE_GFC_REAL_16 UNORDERED_MACRO(10,8)
UNORDERED_MACRO(10,16) UNORDERED_MACRO(10,4)
#endif UNORDERED_MACRO(8,10)
#endif UNORDERED_MACRO(4,10)
#ifdef HAVE_GFC_REAL_16
UNORDERED_MACRO(16,4)
UNORDERED_MACRO(16,8)
#ifdef HAVE_GFC_REAL_10
UNORDERED_MACRO(16,10)
#endif
UNORDERED_MACRO(16,16)
#endif #endif
UNORDERED_MACRO(8,8)
UNORDERED_MACRO(8,4)
UNORDERED_MACRO(4,8)
UNORDERED_MACRO(4,4)
end interface end interface
interface IEEE_UNORDERED interface IEEE_UNORDERED
...@@ -349,32 +319,22 @@ UNORDERED_MACRO(16,16) ...@@ -349,32 +319,22 @@ UNORDERED_MACRO(16,16)
_gfortran_ieee_unordered_16_16, & _gfortran_ieee_unordered_16_16, &
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
_gfortran_ieee_unordered_16_10, & _gfortran_ieee_unordered_16_10, &
_gfortran_ieee_unordered_10_16, &
#endif #endif
_gfortran_ieee_unordered_16_8, & _gfortran_ieee_unordered_16_8, &
_gfortran_ieee_unordered_16_4, & _gfortran_ieee_unordered_16_4, &
_gfortran_ieee_unordered_8_16, &
_gfortran_ieee_unordered_4_16, &
#endif #endif
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
#ifdef HAVE_GFC_REAL_16
_gfortran_ieee_unordered_10_16, &
#endif
_gfortran_ieee_unordered_10_10, & _gfortran_ieee_unordered_10_10, &
_gfortran_ieee_unordered_10_8, & _gfortran_ieee_unordered_10_8, &
_gfortran_ieee_unordered_10_4, & _gfortran_ieee_unordered_10_4, &
#endif
#ifdef HAVE_GFC_REAL_16
_gfortran_ieee_unordered_8_16, &
#endif
#ifdef HAVE_GFC_REAL_10
_gfortran_ieee_unordered_8_10, & _gfortran_ieee_unordered_8_10, &
_gfortran_ieee_unordered_4_10, &
#endif #endif
_gfortran_ieee_unordered_8_8, & _gfortran_ieee_unordered_8_8, &
_gfortran_ieee_unordered_8_4, & _gfortran_ieee_unordered_8_4, &
#ifdef HAVE_GFC_REAL_16
_gfortran_ieee_unordered_4_16, &
#endif
#ifdef HAVE_GFC_REAL_10
_gfortran_ieee_unordered_4_10, &
#endif
_gfortran_ieee_unordered_4_8, & _gfortran_ieee_unordered_4_8, &
_gfortran_ieee_unordered_4_4 _gfortran_ieee_unordered_4_4
end interface end interface
...@@ -424,38 +384,28 @@ UNORDERED_MACRO(16,16) ...@@ -424,38 +384,28 @@ UNORDERED_MACRO(16,16)
end function end function
interface interface
NEXT_AFTER_MACRO(4,4)
NEXT_AFTER_MACRO(4,8)
#ifdef HAVE_GFC_REAL_10
NEXT_AFTER_MACRO(4,10)
#endif
#ifdef HAVE_GFC_REAL_16 #ifdef HAVE_GFC_REAL_16
NEXT_AFTER_MACRO(4,16) NEXT_AFTER_MACRO(16,16)
#endif
NEXT_AFTER_MACRO(8,4)
NEXT_AFTER_MACRO(8,8)
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
NEXT_AFTER_MACRO(8,10) NEXT_AFTER_MACRO(16,10)
NEXT_AFTER_MACRO(10,16)
#endif #endif
#ifdef HAVE_GFC_REAL_16 NEXT_AFTER_MACRO(16,8)
NEXT_AFTER_MACRO(16,4)
NEXT_AFTER_MACRO(8,16) NEXT_AFTER_MACRO(8,16)
NEXT_AFTER_MACRO(4,16)
#endif #endif
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
NEXT_AFTER_MACRO(10,4)
NEXT_AFTER_MACRO(10,8)
NEXT_AFTER_MACRO(10,10) NEXT_AFTER_MACRO(10,10)
#ifdef HAVE_GFC_REAL_16 NEXT_AFTER_MACRO(10,8)
NEXT_AFTER_MACRO(10,16) NEXT_AFTER_MACRO(10,4)
#endif NEXT_AFTER_MACRO(8,10)
#endif NEXT_AFTER_MACRO(4,10)
#ifdef HAVE_GFC_REAL_16
NEXT_AFTER_MACRO(16,4)
NEXT_AFTER_MACRO(16,8)
#ifdef HAVE_GFC_REAL_10
NEXT_AFTER_MACRO(16,10)
#endif
NEXT_AFTER_MACRO(16,16)
#endif #endif
NEXT_AFTER_MACRO(8,8)
NEXT_AFTER_MACRO(8,4)
NEXT_AFTER_MACRO(4,8)
NEXT_AFTER_MACRO(4,4)
end interface end interface
interface IEEE_NEXT_AFTER interface IEEE_NEXT_AFTER
...@@ -464,32 +414,22 @@ NEXT_AFTER_MACRO(16,16) ...@@ -464,32 +414,22 @@ NEXT_AFTER_MACRO(16,16)
_gfortran_ieee_next_after_16_16, & _gfortran_ieee_next_after_16_16, &
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
_gfortran_ieee_next_after_16_10, & _gfortran_ieee_next_after_16_10, &
_gfortran_ieee_next_after_10_16, &
#endif #endif
_gfortran_ieee_next_after_16_8, & _gfortran_ieee_next_after_16_8, &
_gfortran_ieee_next_after_16_4, & _gfortran_ieee_next_after_16_4, &
_gfortran_ieee_next_after_8_16, &
_gfortran_ieee_next_after_4_16, &
#endif #endif
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
#ifdef HAVE_GFC_REAL_16
_gfortran_ieee_next_after_10_16, &
#endif
_gfortran_ieee_next_after_10_10, & _gfortran_ieee_next_after_10_10, &
_gfortran_ieee_next_after_10_8, & _gfortran_ieee_next_after_10_8, &
_gfortran_ieee_next_after_10_4, & _gfortran_ieee_next_after_10_4, &
#endif
#ifdef HAVE_GFC_REAL_16
_gfortran_ieee_next_after_8_16, &
#endif
#ifdef HAVE_GFC_REAL_10
_gfortran_ieee_next_after_8_10, & _gfortran_ieee_next_after_8_10, &
_gfortran_ieee_next_after_4_10, &
#endif #endif
_gfortran_ieee_next_after_8_8, & _gfortran_ieee_next_after_8_8, &
_gfortran_ieee_next_after_8_4, & _gfortran_ieee_next_after_8_4, &
#ifdef HAVE_GFC_REAL_16
_gfortran_ieee_next_after_4_16, &
#endif
#ifdef HAVE_GFC_REAL_10
_gfortran_ieee_next_after_4_10, &
#endif
_gfortran_ieee_next_after_4_8, & _gfortran_ieee_next_after_4_8, &
_gfortran_ieee_next_after_4_4 _gfortran_ieee_next_after_4_4
end interface end interface
...@@ -505,38 +445,28 @@ NEXT_AFTER_MACRO(16,16) ...@@ -505,38 +445,28 @@ NEXT_AFTER_MACRO(16,16)
end function end function
interface interface
REM_MACRO(4,4,4)
REM_MACRO(8,4,8)
#ifdef HAVE_GFC_REAL_10
REM_MACRO(10,4,10)
#endif
#ifdef HAVE_GFC_REAL_16 #ifdef HAVE_GFC_REAL_16
REM_MACRO(16,4,16) REM_MACRO(16,16,16)
#endif
REM_MACRO(8,8,4)
REM_MACRO(8,8,8)
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
REM_MACRO(10,8,10) REM_MACRO(16,16,10)
REM_MACRO(16,10,16)
#endif #endif
#ifdef HAVE_GFC_REAL_16 REM_MACRO(16,16,8)
REM_MACRO(16,16,4)
REM_MACRO(16,8,16) REM_MACRO(16,8,16)
REM_MACRO(16,4,16)
#endif #endif
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
REM_MACRO(10,10,4)
REM_MACRO(10,10,8)
REM_MACRO(10,10,10) REM_MACRO(10,10,10)
#ifdef HAVE_GFC_REAL_16 REM_MACRO(10,10,8)
REM_MACRO(16,10,16) REM_MACRO(10,10,4)
#endif REM_MACRO(10,8,10)
#endif REM_MACRO(10,4,10)
#ifdef HAVE_GFC_REAL_16
REM_MACRO(16,16,4)
REM_MACRO(16,16,8)
#ifdef HAVE_GFC_REAL_10
REM_MACRO(16,16,10)
#endif
REM_MACRO(16,16,16)
#endif #endif
REM_MACRO(8,8,8)
REM_MACRO(8,8,4)
REM_MACRO(8,4,8)
REM_MACRO(4,4,4)
end interface end interface
interface IEEE_REM interface IEEE_REM
...@@ -545,32 +475,22 @@ REM_MACRO(16,16,16) ...@@ -545,32 +475,22 @@ REM_MACRO(16,16,16)
_gfortran_ieee_rem_16_16, & _gfortran_ieee_rem_16_16, &
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
_gfortran_ieee_rem_16_10, & _gfortran_ieee_rem_16_10, &
_gfortran_ieee_rem_10_16, &
#endif #endif
_gfortran_ieee_rem_16_8, & _gfortran_ieee_rem_16_8, &
_gfortran_ieee_rem_16_4, & _gfortran_ieee_rem_16_4, &
_gfortran_ieee_rem_8_16, &
_gfortran_ieee_rem_4_16, &
#endif #endif
#ifdef HAVE_GFC_REAL_10 #ifdef HAVE_GFC_REAL_10
#ifdef HAVE_GFC_REAL_16
_gfortran_ieee_rem_10_16, &
#endif
_gfortran_ieee_rem_10_10, & _gfortran_ieee_rem_10_10, &
_gfortran_ieee_rem_10_8, & _gfortran_ieee_rem_10_8, &
_gfortran_ieee_rem_10_4, & _gfortran_ieee_rem_10_4, &
#endif
#ifdef HAVE_GFC_REAL_16
_gfortran_ieee_rem_8_16, &
#endif
#ifdef HAVE_GFC_REAL_10
_gfortran_ieee_rem_8_10, & _gfortran_ieee_rem_8_10, &
_gfortran_ieee_rem_4_10, &
#endif #endif
_gfortran_ieee_rem_8_8, & _gfortran_ieee_rem_8_8, &
_gfortran_ieee_rem_8_4, & _gfortran_ieee_rem_8_4, &
#ifdef HAVE_GFC_REAL_16
_gfortran_ieee_rem_4_16, &
#endif
#ifdef HAVE_GFC_REAL_10
_gfortran_ieee_rem_4_10, &
#endif
_gfortran_ieee_rem_4_8, & _gfortran_ieee_rem_4_8, &
_gfortran_ieee_rem_4_4 _gfortran_ieee_rem_4_4
end interface end interface
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment