--- a/main/netcdf/inst/private/test_netcdf_high_level_interface.m	Mon Feb 15 20:43:15 2016 +0000
+++ b/main/netcdf/inst/private/test_netcdf_high_level_interface.m	Fri Feb 19 13:45:14 2016 +0000
@@ -12,7 +12,7 @@
 %%
 %% You should have received a copy of the GNU General Public License
 %% along with this program; If not, see <http://www.gnu.org/licenses/>.
-
+import_netcdf
 
 fname = [tempname '-octave-netcdf.nc'];
 
@@ -101,9 +101,11 @@
 %system(['ncdump -h ' fname])
 data = zeros(10,10);
 data(1,2) = fv;
-ncid = netcdf_open(fname,'NC_WRITE');
-varid = netcdf_inqVarID(ncid, 'flag');
-netcdf_putVar(ncid,varid,data);
+ncid = netcdf.open(fname,'NC_WRITE');
+varid = netcdf.inqVarID(ncid, 'flag');
+netcdf.putVar(ncid,varid,data);
+netcdf.close(ncid)
+
 data2 = ncread(fname,'flag');
 data(data == fv) = NaN;
 assert(isequaln(data,data2))
@@ -119,11 +121,17 @@
 data = repmat('.',[10 10]);
 data(1,2) = fv;
 
-ncid = netcdf_open(fname,'NC_WRITE');
-varid = netcdf_inqVarID(ncid, 'flag');
-netcdf_putVar(ncid,varid,data);
+ncid = netcdf.open(fname,'NC_WRITE');
+varid = netcdf.inqVarID(ncid, 'flag');
+netcdf.putVar(ncid,varid,data);
+netcdf.close(ncid)
+
 data2 = ncread(fname,'flag');
-
 assert(isequal(data,data2))
 delete(fname)
 
+
+
+% test case for bug  47014
+
+bug_47014