Subversion Repositories openrisc

! { dg-options "-O3 -floop-block" }

MODULE util

  INTEGER, PARAMETER :: int_4=4

  INTERFACE sort

     MODULE PROCEDURE sort_int_4v

  END INTERFACE

CONTAINS

  SUBROUTINE sort_int_4v ( arr, n, index )

    INTEGER(KIND=int_4), INTENT(INOUT)       :: arr(1:n)

    INTEGER, INTENT(OUT)                     :: INDEX(1:n)

    DO i = 1, n

       INDEX(i) = i

    END DO

1   IF (ir-l

       DO j = l + 1, ir

          DO i = j - 1, 1, -1

             IF (arr(i)<=a) GO TO 2

             arr(i+1) = arr(i)

             INDEX(i+1) = INDEX(i)

          END DO

2         arr(i+1) = a

       END DO

    END IF

  END SUBROUTINE sort_int_4v

  SUBROUTINE create_destination_list(list)

    INTEGER, DIMENSION(:, :, :), POINTER     :: list

    INTEGER                                  ::  icpu, ncpu, stat, ultimate_max

    INTEGER, ALLOCATABLE, DIMENSION(:)       :: index, sublist

    ultimate_max=7

    ALLOCATE(INDEX(ultimate_max),STAT=stat)

    CALL t(stat==0)

    ALLOCATE(sublist(ultimate_max),STAT=stat)

    DO icpu=0,ncpu-1

       CALL sort(sublist,ultimate_max,index)

       list(1,:,icpu)=sublist

       list(2,:,icpu)=0

    ENDDO

  END SUBROUTINE create_destination_list

END MODULE

! { dg-final { cleanup-modules "util" } }