warn_fortran_indexing = 1;
a = 2;
all (a(logical ([1,1])) == [2,2])
