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