Mercurial > forge

diff main/netcdf/inst/private/bug_47014.m @ 12711:a4de85b2e6a0 octave-forge
fix bug 47014 and make test code work in matlab
author: abarth93
date: Fri, 19 Feb 2016 13:45:14 +0000
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/main/netcdf/inst/private/bug_47014.m	Fri Feb 19 13:45:14 2016 +0000
@@ -0,0 +1,13 @@
+% test case for bug  47014
+% https://savannah.gnu.org/bugs/?func=detailitem&item_id=47014
+
+fname = [tempname '-octave-netcdf.nc'];
+nccreate(fname,'var','Dimensions',{'x',10},...
+         'FillValue',-32767,'Datatype','int16')
+
+var = ones(10,1);
+var(1) = NaN;
+ncwrite(fname,'var',var);
+var2 = ncread(fname,'var');
+assert(isequaln(var,var2))
+delete(fname)