* Makefile.am (gfor_helper_src): Split selected_kind.f90.

        (gfor_built_src): Add selected_int_kind.inc selected_real_kind.inc.
        (selected_int_kind.inc selected_real_kind.inc): New rules.
        * Makefile.in: Regenerate.
        * mk-sik-inc.sh, mk-srk-inc.sh: New files.
        * intrinsics/selected_int_kind.f90: Split from selected_kind.f90,
        include table of detected kinds.
        * intrinsics/selected_real_kind.f90: Similarly.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86801 138bc75d-0d04-0410-961f-82ee72b054a4

2 files changed, 46 insertions, 32 deletions

diff --git a/libgfortran/intrinsics/selected_int_kind.f90 b/libgfortran/intrinsics/selected_int_kind.f90
new file mode 100644
index 00000000000..8d9a6bedc6b
--- /dev/null
+++ b/libgfortran/intrinsics/selected_int_kind.f90
@@ -0,0 +1,43 @@
+!   Copyright 2003, 2004 Free Software Foundation, Inc.
+!   Contributed by Kejia Zhao <kejia_zh@yahoo.com.cn>
+!
+!This file is part of the GNU Fortran 95 runtime library (libgfor).
+!
+!GNU libgfor is free software; you can redistribute it and/or
+!modify it under the terms of the GNU Lesser General Public
+!License as published by the Free Software Foundation; either
+!version 2.1 of the License, or (at your option) any later version.
+!
+!GNU libgfor is distributed in the hope that it will be useful,
+!but WITHOUT ANY WARRANTY; without even the implied warranty of
+!MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+!GNU Lesser General Public License for more details.
+!
+!You should have received a copy of the GNU Lesser General Public
+!License along with libgfor; see the file COPYING.  If not,
+!write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+!Boston, MA 02111-1307, USA.
+!
+
+function selected_int_kind (r)
+  implicit none
+  integer, intent (in) :: r
+  integer :: selected_int_kind
+  integer :: i
+  ! Integer kind_range table
+  type :: int_info
+    integer :: kind
+    integer :: range
+  end type int_info
+
+  include "selected_int_kind.inc"
+
+  do i = 1, c
+    if (r <= int_infos (i) % range) then
+      selected_int_kind = int_infos (i) % kind
+      return
+    end if
+  end do
+  selected_int_kind = -1
+  return
+end function
diff --git a/libgfortran/intrinsics/selected_kind.f90 b/libgfortran/intrinsics/selected_real_kind.f90
index 62d11c7f596..df2881717cd 100644
--- a/libgfortran/intrinsics/selected_kind.f90
+++ b/libgfortran/intrinsics/selected_real_kind.f90
@@ -1,4 +1,4 @@
-!   Copyright 2003 Free Software Foundation, Inc.
+!   Copyright 2003, 2004 Free Software Foundation, Inc.
 !   Contributed by Kejia Zhao <kejia_zh@yahoo.com.cn>
 !
 !This file is part of the GNU Fortran 95 runtime library (libgfor).
@@ -19,33 +19,6 @@
 !Boston, MA 02111-1307, USA.
 !
 
-function selected_int_kind (r)
-  implicit none
-  integer, intent (in) :: r
-  integer :: selected_int_kind
-  integer :: i
-  ! Integer kind_range table
-  integer, parameter :: c = 4
-  type :: int_info
-    integer :: kind
-    integer :: range
-  end type int_info
-  type (int_info), parameter :: int_infos (c) = &
-      (/int_info (1, range (0_1)), &
-        int_info (2, range (0_2)), &
-        int_info (4, range (0_4)), &
-        int_info (8, range (0_8))/)
-
-  do i = 1, c
-    if (r <= int_infos (i) % range) then
-      selected_int_kind = int_infos (i) % kind
-      return
-    end if
-  end do
-  selected_int_kind = -1
-  return
-end function
-
 function selected_real_kind (p, r)
   implicit none
   integer, optional, intent (in) :: p, r
@@ -53,15 +26,13 @@ function selected_real_kind (p, r)
   integer :: i, p2, r2
   logical :: found_p, found_r
   ! Real kind_precision_range table
-  integer, parameter :: c = 2
   type :: real_info
     integer :: kind
     integer :: precision
     integer :: range
   end type real_info
-  type (real_info) :: real_infos (c) = &
-      (/real_info (4, precision (0.0_4), range (0.0_4)), &
-        real_info (8, precision (0.0_8), range (0.0_8))/)
+
+  include "selected_real_kind.inc"
 
   selected_real_kind = 0
   p2 = 0