!-- matrix, matrix multiply !-- Nasser M. Abbasi Feb 12, 2012 !-- !-- gfortran -std=f2008 f02.f90 program f02 implicit none integer :: A(2,3) A(1,:) = [1,2,3] A(2,:) = [3,4,5] CALL print_matrix( matmul(A, transpose(A)) ) CONTAINS subroutine print_matrix(A) implicit none integer, intent(in) :: A(:,:) integer :: i DO i = 1,size(A,1) print '(3i3)', A(i,:) END DO end subroutine print_matrix end program f02