20 lines
421 B
Forth
20 lines
421 B
Forth
PROGRAM Example
|
|
|
|
IMPLICIT NONE
|
|
INTEGER :: rows, columns, errcheck
|
|
INTEGER, ALLOCATABLE :: array(:,:)
|
|
|
|
WRITE(*,*) "Enter number of rows"
|
|
READ(*,*) rows
|
|
WRITE(*,*) "Enter number of columns"
|
|
READ(*,*) columns
|
|
|
|
ALLOCATE (array(rows,columns), STAT=errcheck) ! STAT is optional and is used for error checking
|
|
|
|
array(1,1) = 42
|
|
|
|
WRITE(*,*) array(1,1)
|
|
|
|
DEALLOCATE (array, STAT=errcheck)
|
|
|
|
END PROGRAM Example
|