Insertion Help in Fortran

[liunx]

<!--c1--><div class='codetop'>CODE</div><div class='codemain'><!--ec1--><br />! A Program for testing sorting algorithms<br />! Filename: sort.f90 Src: JWW 10/2007<br />  USE SORTMOD<br />  Implicit NONE<br />  integer, parameter :: n=80<br />  integer :: i<br />  real :: A(n)<br /><br />  call random_number( A )<br /><br />  call InsertionSort( A, n )<br /><br />  do i=1,n<br />    print *,i,A(i)<br />  end do<br />end Program Sort<br /><br /><!--c2--></div><!--ec2--><br /><br /><!--c1--><div class='codetop'>CODE</div><div class='codemain'><!--ec1--><br />MODULE SORTMOD<br />  IMPLICIT NONE<br />CONTAINS<br /><br />  SUBROUTINE InsertionSort(B, m)<br />    REAL, dimension) :: B !Dummy variable<br />    INTEGER :: m<br />    INTEGER :: i, j<br />    REAL :: key<br /><br />m=80<br /><br />    do j = 2, m<br />       key = B(j)<br />       i = (j - 1)<br />       <br />       do<br />          if ((i>0) .AND. (B(i) > key)) exit<br />          B(i+1) = B(i)<br />          i = (i - 1)         <br />       enddo<br />    <br />       B(i + 1) = key<br />    enddo<br /><br /><br />  END SUBROUTINE InsertionSort<br />END MODULE SORTMOD<br /><br /><!--c2--></div><!--ec2--><br /><br /><br />Hey, The first part of code is the main program that was given to us that will genertate an array of random numbers. It calls the module to perform insertion sort. The second part is that module which I wrote. Everything compiles fine, but the program does nothing when run. It just gives me a cursor to type anything in (perhaps an infinite loop?) I really can't see where I went wrong here. Any tips?<br />
</div>