[Bug fortran/120431] SPREAD does not handle scalar argument and NCOPIES=-1 correctly

[kargls at comcast dot net via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=120431

--- Comment #1 from kargls at comcast dot net ---
(In reply to kargls from comment #0)
> Consider,
> 
>   real :: arr
>   arr = 1
>   print *, spread(arr, 1, -1)
>   end
> 

Small update.  The above should be handled in simplification,
but currently is not.  The issue is in the runtime library,
which is demonstrated with

   integer dm, ncpy
   real :: arr
   arr = 1
   dm = 1
   ncpy = -1
   print *, spread(arr, dm, ncpy)
   end