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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [char_result_11.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do link }
! PR 23675: Character function of module-variable length
! PR 25716: Implicit kind conversions in in expressions written to *.mod-files.
module cutils
 
    implicit none
    private
 
    type t
        integer :: k = 25
        integer :: kk(3) = (/30, 40, 50 /)
    end type t
 
    integer :: m1 = 25, m2 = 25, m3 = 25, m4 = 25, m5 = 25
    integer :: n5 = 3, n7 = 3, n9 = 3
    integer(1) :: n1 = 3, n2 = 3, n3 = 3, n4 = 3, n6 = 3, n8 = 3
    character(10) :: s = "abcdefghij"
    integer :: x(4) = (/ 30, 40, 50, 60 /)
    type(t), save :: tt1(5), tt2(5)
 
    public :: IntToChar1, IntToChar2, IntToChar3, IntToChar4, IntToChar5, &
                IntToChar6, IntToChar7, IntToChar8
 
contains
 
    pure integer function get_k(tt)
        type(t), intent(in) :: tt
 
        get_k = tt%k
    end function get_k
 
    function IntToChar1(integerValue) result(a)
        integer, intent(in) :: integerValue
        character(len=m1)  :: a
 
        write(a, *) integerValue
    end function IntToChar1
 
    function IntToChar2(integerValue) result(a)
        integer, intent(in) :: integerValue
        character(len=m2+n1)  :: a
 
        write(a, *) integerValue
    end function IntToChar2
 
    function IntToChar3(integerValue) result(a)
        integer, intent(in) :: integerValue
        character(len=iachar(s(n2:n3)))  :: a
 
        write(a, *) integerValue
    end function IntToChar3
 
    function IntToChar4(integerValue) result(a)
        integer, intent(in) :: integerValue
        character(len=tt1(n4)%k)  :: a
 
        write(a, *) integerValue
    end function IntToChar4
 
    function IntToChar5(integerValue) result(a)
        integer, intent(in) :: integerValue
        character(len=maxval((/m3, n5/)))  :: a
 
        write(a, *) integerValue
    end function IntToChar5
 
    function IntToChar6(integerValue) result(a)
        integer, intent(in) :: integerValue
        character(len=x(n6))  :: a
 
        write(a, *) integerValue
    end function IntToChar6
 
    function IntToChar7(integerValue) result(a)
        integer, intent(in) :: integerValue
        character(len=tt2(min(m4, n7, 2))%kk(n8))  :: a
 
        write(a, *) integerValue
    end function IntToChar7
 
    function IntToChar8(integerValue) result(a)
        integer, intent(in) :: integerValue
        character(len=get_k(t(m5, (/31, n9, 53/))))  :: a
 
        write(a, *) integerValue
    end function IntToChar8
 
end module cutils
 
 
program test
 
    use cutils
 
    implicit none
    character(25) :: str
 
    str = IntToChar1(3)
    print *, str
    str = IntToChar2(3)
    print *, str
    str = IntToChar3(3)
    print *, str
    str = IntToChar4(3)
    print *, str
    str = IntToChar5(3)
    print *, str
    str = IntToChar6(3)
    print *, str
    str = IntToChar7(3)
    print *, str
    str = IntToChar8(3)
    print *, str
 
end program test
 
! { dg-final { cleanup-modules "cutils" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do link }`
2			`! PR 23675: Character function of module-variable length`
3			`! PR 25716: Implicit kind conversions in in expressions written to *.mod-files.`
4			`module cutils`
5
6			`implicit none`
7			`private`
8
9			`type t`
10			`integer :: k = 25`
11			`integer :: kk(3) = (/30, 40, 50 /)`
12			`end type t`
13
14			`integer :: m1 = 25, m2 = 25, m3 = 25, m4 = 25, m5 = 25`
15			`integer :: n5 = 3, n7 = 3, n9 = 3`
16			`integer(1) :: n1 = 3, n2 = 3, n3 = 3, n4 = 3, n6 = 3, n8 = 3`
17			`character(10) :: s = "abcdefghij"`
18			`integer :: x(4) = (/ 30, 40, 50, 60 /)`
19			`type(t), save :: tt1(5), tt2(5)`
20
21			`public :: IntToChar1, IntToChar2, IntToChar3, IntToChar4, IntToChar5, &`
22			`IntToChar6, IntToChar7, IntToChar8`
23
24			`contains`
25
26			`pure integer function get_k(tt)`
27			`type(t), intent(in) :: tt`
28
29			`get_k = tt%k`
30			`end function get_k`
31
32			`function IntToChar1(integerValue) result(a)`
33			`integer, intent(in) :: integerValue`
34			`character(len=m1) :: a`
35
36			`write(a, *) integerValue`
37			`end function IntToChar1`
38
39			`function IntToChar2(integerValue) result(a)`
40			`integer, intent(in) :: integerValue`
41			`character(len=m2+n1) :: a`
42
43			`write(a, *) integerValue`
44			`end function IntToChar2`
45
46			`function IntToChar3(integerValue) result(a)`
47			`integer, intent(in) :: integerValue`
48			`character(len=iachar(s(n2:n3))) :: a`
49
50			`write(a, *) integerValue`
51			`end function IntToChar3`
52
53			`function IntToChar4(integerValue) result(a)`
54			`integer, intent(in) :: integerValue`
55			`character(len=tt1(n4)%k) :: a`
56
57			`write(a, *) integerValue`
58			`end function IntToChar4`
59
60			`function IntToChar5(integerValue) result(a)`
61			`integer, intent(in) :: integerValue`
62			`character(len=maxval((/m3, n5/))) :: a`
63
64			`write(a, *) integerValue`
65			`end function IntToChar5`
66
67			`function IntToChar6(integerValue) result(a)`
68			`integer, intent(in) :: integerValue`
69			`character(len=x(n6)) :: a`
70
71			`write(a, *) integerValue`
72			`end function IntToChar6`
73
74			`function IntToChar7(integerValue) result(a)`
75			`integer, intent(in) :: integerValue`
76			`character(len=tt2(min(m4, n7, 2))%kk(n8)) :: a`
77
78			`write(a, *) integerValue`
79			`end function IntToChar7`
80
81			`function IntToChar8(integerValue) result(a)`
82			`integer, intent(in) :: integerValue`
83			`character(len=get_k(t(m5, (/31, n9, 53/)))) :: a`
84
85			`write(a, *) integerValue`
86			`end function IntToChar8`
87
88			`end module cutils`
89
90
91			`program test`
92
93			`use cutils`
94
95			`implicit none`
96			`character(25) :: str`
97
98			`str = IntToChar1(3)`
99			`print *, str`
100			`str = IntToChar2(3)`
101			`print *, str`
102			`str = IntToChar3(3)`
103			`print *, str`
104			`str = IntToChar4(3)`
105			`print *, str`
106			`str = IntToChar5(3)`
107			`print *, str`
108			`str = IntToChar6(3)`
109			`print *, str`
110			`str = IntToChar7(3)`
111			`print *, str`
112			`str = IntToChar8(3)`
113			`print *, str`
114
115			`end program test`
116
117			`! { dg-final { cleanup-modules "cutils" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [char_result_11.f90] - Blame information for rev 694