OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [dependent_decls_1.f90] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
! { dg-do run }
2
! Tests the fix for pr28660 in which the order of dependent declarations
3
! would get scrambled in the compiled code.
4
!
5
! Contributed by Erik Edelmann  
6
!
7
program bar
8
    implicit none
9
    real :: x(10)
10
    call foo1 (x)
11
    call foo2 (x)
12
    call foo3 (x)
13
contains
14
    subroutine foo1 (xmin)
15
        real, intent(inout) :: xmin(:)
16
        real :: x(size(xmin)+1)           ! The declaration for r would be added
17
        real :: r(size(x)-2)              ! to the function before that of x
18
        xmin = r
19
        if (size(r) .ne. 9) call abort ()
20
        if (size(x) .ne. 11) call abort ()
21
    end subroutine foo1
22
    subroutine foo2 (xmin)                ! This version was OK because of the
23
        real, intent(inout) :: xmin(:)    ! renaming of r which pushed it up
24
        real :: x(size(xmin)+3)           ! the symtree.
25
        real :: zr(size(x)-6)
26
        xmin = zr
27
        if (size(zr) .ne. 7) call abort ()
28
        if (size(x) .ne. 13) call abort ()
29
    end subroutine foo2
30
    subroutine foo3 (xmin)
31
        real, intent(inout) :: xmin(:)
32
        character(size(x)+2) :: y         ! host associated x
33
        character(len(y)+3) :: z          ! This did not work for any combination
34
        real :: r(len(z)-10)              ! of names.
35
        xmin = r
36
        if (size(r) .ne. 5) call abort ()
37
        if (len(z) .ne. 15) call abort ()
38
    end subroutine foo3
39
end program bar

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.