RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/HicEst/create-a-two-dimensional-array-at-runtime.hicest

REAL :: array(1)

DLG(NameEdit=rows, NameEdit=cols, Button='OK', TItle='Enter array dimensions')

ALLOCATE(array, cols, rows)
array(1,1) = 1.234
WRITE(Messagebox, Name) array(1,1)