The following substring reference gives the bogus:

   Error: Rank mismatch in array reference at (1) (1/0)

character(len=5), save :: str[*]
print *, str(j:j)
end


While the following (array section) is rejected - but with the wrong error message. It should state that "str" is a scalar. (Correct syntax for a substring would be "str[1](j:j)".)

character(len=5), save :: str[*]
print *, str(j:j)[1]
end