RANK (The GNU Fortran Compiler) (original) (raw)

program test_rank integer :: a real, allocatable :: b(:,:)

print *, rank(a), rank(b) ! Prints: 0 2 end program test_rank