Don't set kind parameters in case stdlib is not supporting them

- remove EULERS_NUMBER_QP export if quadruple precision is not enabled

Author: awvwgk

src/CMakeLists.txt

@@ -7,6 +7,7 @@ set(fppFiles
     stdlib_bitsets_64.fypp
     stdlib_bitsets_large.fypp
     stdlib_io.fypp
+    stdlib_kinds.fypp
     stdlib_linalg.fypp
     stdlib_linalg_diag.fypp
     stdlib_linalg_outer_product.fypp
@@ -60,7 +61,6 @@ fypp_f90("${fyppFlags}" "${fppFiles}" outFiles)
 
 set(SRC
     stdlib_error.f90
-    stdlib_kinds.f90
     stdlib_logger.f90
     stdlib_system.F90
     stdlib_specialfunctions.f90

src/Makefile.manual

@@ -4,6 +4,7 @@ SRCFYPP = \
         stdlib_bitsets_large.fypp \
         stdlib_bitsets.fypp \
         stdlib_io.fypp \
+        stdlib_kinds.fypp \
         stdlib_linalg.fypp \
         stdlib_linalg_diag.fypp \
         stdlib_linalg_outer_product.fypp \
@@ -41,7 +42,6 @@ SRC = f18estop.f90 \
       stdlib_specialfunctions.f90 \
       stdlib_specialfunctions_legendre.f90 \
       stdlib_io.f90 \
-      stdlib_kinds.f90 \
       stdlib_logger.f90 \
       stdlib_quadrature_gauss.f90 \
       stdlib_strings.f90 \

src/stdlib_kinds.f90 renamed to src/stdlib_kinds.fypp

@@ -1,3 +1,4 @@
+#:include "common.fypp"
 !> Version: experimental
 !>
 !> The specification of this module is available [here](../page/specs/stdlib_kinds.html).
@@ -15,10 +16,10 @@ module stdlib_kinds
   integer, parameter :: dp = selected_real_kind(15)
 
   !> Extended double precision real numbers
-  integer, parameter :: xdp = selected_real_kind(18)
+  integer, parameter :: xdp = #{if WITH_XDP}#selected_real_kind(18)#{else}#-1#{endif}#
 
   !> Quadruple precision real numbers
-  integer, parameter :: qp = selected_real_kind(33)
+  integer, parameter :: qp = #{if WITH_QP}#selected_real_kind(33)#{else}#-1#{endif}#
 
   !> Default logical kind parameter
   integer, parameter :: lk = kind(.true.)

src/stdlib_math.fypp

@@ -9,7 +9,10 @@ module stdlib_math
     implicit none
     private
     public :: clip, gcd, linspace, logspace
-    public :: EULERS_NUMBER_SP, EULERS_NUMBER_DP, EULERS_NUMBER_QP
+    public :: EULERS_NUMBER_SP, EULERS_NUMBER_DP
+#:if WITH_QP
+    public :: EULERS_NUMBER_QP
+#:endif
     public :: DEFAULT_LINSPACE_LENGTH, DEFAULT_LOGSPACE_BASE, DEFAULT_LOGSPACE_LENGTH
     public :: arange
 
@@ -20,7 +23,9 @@ module stdlib_math
     ! Useful constants for lnspace
     real(sp), parameter :: EULERS_NUMBER_SP = exp(1.0_sp)
     real(dp), parameter :: EULERS_NUMBER_DP = exp(1.0_dp)
+#:if WITH_QP
     real(qp), parameter :: EULERS_NUMBER_QP = exp(1.0_qp)
+#:endif
 
     interface clip
     #:for k1, t1 in IR_KINDS_TYPES