| subroutine prob | |
| integer, parameter :: ROWS = 5, COLS = 7 | |
| real :: matrix(ROWS, COLS) | |
| call new_procedure(COLS, ROWS, matrix) | |
| print *, matrix | |
| end subroutine | |
| subroutine new_procedure(COLS, ROWS, matrix) | |
| implicit none | |
| integer :: COLS | |
| integer :: ROWS | |
| real :: matrix(ROWS, COLS) | |
| matrix(:, :) = 0.0 !<<<<<START !<<<<<END | |
| end subroutine | |
| program main; call prob; call flush; stop; end program |