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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
! { dg-do run }
2
! PR 22607: External/module pure return-by-reference functions
3
 
4
pure function hoj()
5
    integer :: hoj(3)
6
    hoj = (/1, 2, 3/)
7
end function hoj
8
 
9
module huj_mod
10
contains
11
    pure function huj()
12
        integer :: huj(3)
13
        huj = (/1, 2, 3/)
14
    end function huj
15
end module huj_mod
16
 
17
program pure_byref_3
18
    use huj_mod
19
    implicit none
20
 
21
    interface
22
        pure function hoj()
23
            integer :: hoj(3)
24
        end function hoj
25
    end interface
26
    integer :: a(3)
27
 
28
    a = huj()
29
    if (.not. all(a == (/1, 2, 3/))) call abort()
30
 
31
    a = hoj()
32
    if (.not. all(a == (/1, 2, 3/))) call abort()
33
end program pure_byref_3
34
 
35
! { dg-final { cleanup-modules "huj_mod" } }

powered by: WebSVN 2.1.0

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