Bug fix: Allocatable argument 'x' is not allocated #472

Author: 14NGiestas

src/stdlib_math_linspace.fypp

@@ -65,8 +65,8 @@ contains
       #:set RName = rname("linspace_n", 1, t1, k1)
       module procedure ${RName}$
 
-        real(${k1}$) :: x(n) ! array of the real part of complex number
-        real(${k1}$) :: y(n) ! array of the imaginary part of the complex number
+        real(${k1}$) :: x(max(n, 0)) ! array of the real part of complex number
+        real(${k1}$) :: y(max(n, 0)) ! array of the imaginary part of the complex number
 
         x = linspace(start%re, end%re, n)
         y = linspace(start%im, end%im, n)