RosettaCodeData/Task/Arrays/Fortran/arrays-25.f

2 lines
50 B
Fortran

a = reshape ((/(i * i, i = 1, 100)/), (/10, 10/))