Subversion Repositories openrisc

! { dg-do run }

! Tests the fix for pr28660 in which the order of dependent declarations

! would get scrambled in the compiled code.

!

! Contributed by Erik Edelmann  

!

program bar

    implicit none

    real :: x(10)

    call foo1 (x)

    call foo2 (x)

    call foo3 (x)

contains

    subroutine foo1 (xmin)

        real, intent(inout) :: xmin(:)

        real :: x(size(xmin)+1)           ! The declaration for r would be added

        real :: r(size(x)-2)              ! to the function before that of x

        xmin = r

        if (size(r) .ne. 9) call abort ()

        if (size(x) .ne. 11) call abort ()

    end subroutine foo1

    subroutine foo2 (xmin)                ! This version was OK because of the

        real, intent(inout) :: xmin(:)    ! renaming of r which pushed it up

        real :: x(size(xmin)+3)           ! the symtree.

        real :: zr(size(x)-6)

        xmin = zr

        if (size(zr) .ne. 7) call abort ()

        if (size(x) .ne. 13) call abort ()

    end subroutine foo2

    subroutine foo3 (xmin)

        real, intent(inout) :: xmin(:)

        character(size(x)+2) :: y         ! host associated x

        character(len(y)+3) :: z          ! This did not work for any combination

        real :: r(len(z)-10)              ! of names.

        xmin = r

        if (size(r) .ne. 5) call abort ()

        if (len(z) .ne. 15) call abort ()

    end subroutine foo3

end program bar