From 2b8ec53d70e58688d7894cf20fbbefa4f7b73c56 Mon Sep 17 00:00:00 2001
From: Lorenzo Figini <lorenzo.figini@istp.cnr.it>
Date: Thu, 30 May 2024 16:26:23 +0200
Subject: [PATCH] Improve compatibility with some compilers

---
 src/gray_errors.f90 |  2 +-
 src/splines.f90     | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/gray_errors.f90 b/src/gray_errors.f90
index cb72de3..74e8673 100644
--- a/src/gray_errors.f90
+++ b/src/gray_errors.f90
@@ -24,7 +24,7 @@ module gray_errors
 
   ! macros used for defining errors
 # define _ ,
-# define list(x) reshape([character(64) :: x], [10], [''])
+# define list(x) reshape([character(64) :: x], [10], [character(64) :: ''])
 # define after(x) x%offset + x%subcases
 
   ! All GRAY errors
diff --git a/src/splines.f90 b/src/splines.f90
index 99f88ab..7d0b431 100644
--- a/src/splines.f90
+++ b/src/splines.f90
@@ -34,6 +34,11 @@ module splines
       procedure :: deriv  => spline_1d_deriv
   end type
 
+  ! Wrapper to store pointers in an array
+  type pointer
+    real(wp_), pointer :: ptr(:) => null()
+  end type
+
   ! A 2D smoothing/interpolating cubic spline s(x, y)
   type spline_2d
     integer :: nknots_x                   ! Number of x knots
@@ -54,11 +59,6 @@ module splines
       procedure :: transform  => spline_2d_transform
   end type
 
-  ! Wrapper to store pointers in an array
-  type pointer
-    real(wp_), pointer :: ptr(:) => null()
-  end type
-
   ! A simple 1D linear interpolation
   type linear_1d
     integer :: ndata                   ! Number of data points