mplicit_index with (int) cast, f90 343 pack