1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
! { dg-do compile }
! { dg-additional-options "-Wconversion-extra" }
!
! Test fix for PR fortran/96724
!
! Contributed by José Rui Faustino de Sousa
program repeat_p
use, intrinsic :: iso_fortran_env, only: int8, int16, int32, int64
implicit none
integer, parameter :: n = 20
integer, parameter :: ucs4 = selected_char_kind ('ISO_10646')
integer(kind=int8), parameter :: p08 = int(n, kind=int8)
integer(kind=int16), parameter :: p16 = int(n, kind=int16)
integer(kind=int16), parameter :: p32 = int(n, kind=int32)
integer(kind=int16), parameter :: p64 = int(n, kind=int64)
integer(kind=int8) :: i08
integer(kind=int16) :: i16
integer(kind=int32) :: i32
integer(kind=int64) :: i64
character(len=n,kind=1) :: c
character(len=n,kind=ucs4) :: d
i08 = p08
c = repeat('X', 20_int8)
c = repeat('X', i08)
c = repeat('X', p08)
c = repeat('X', len08(c))
d = repeat(ucs4_'X', 20_int8)
d = repeat(ucs4_'X', i08)
d = repeat(ucs4_'X', p08)
d = repeat(ucs4_'X', len08(c))
i16 = p16
c = repeat('X', 20_int16)
c = repeat('X', i16)
c = repeat('X', p16)
c = repeat('X', len16(c))
d = repeat(ucs4_'X', 20_int16)
d = repeat(ucs4_'X', i16)
d = repeat(ucs4_'X', p16)
d = repeat(ucs4_'X', len16(c))
i32 = p32
c = repeat('X', 20_int32)
c = repeat('X', i32)
c = repeat('X', p32)
c = repeat('X', len32(c))
d = repeat(ucs4_'X', 20_int32)
d = repeat(ucs4_'X', i32)
d = repeat(ucs4_'X', p32)
d = repeat(ucs4_'X', len32(c))
i64 = p64
c = repeat('X', 20_int64)
c = repeat('X', i64)
c = repeat('X', p64)
c = repeat('X', len64(c))
d = repeat(ucs4_'X', 20_int64)
d = repeat(ucs4_'X', i64)
d = repeat(ucs4_'X', p64)
d = repeat(ucs4_'X', len64(c))
contains
function len08(x) result(l)
character(len=*), intent(in) :: x
integer(kind=int8) :: l
l = int(len(x), kind=int8)
end function len08
function len16(x) result(l)
character(len=*), intent(in) :: x
integer(kind=int16) :: l
l = int(len(x), kind=int16)
end function len16
function len32(x) result(l)
character(len=*), intent(in) :: x
integer(kind=int32) :: l
l = int(len(x), kind=int32)
end function len32
function len64(x) result(l)
character(len=*), intent(in) :: x
integer(kind=int64) :: l
l = int(len(x), kind=int64)
end function len64
function ulen08(x) result(l)
character(len=*,kind=ucs4), intent(in) :: x
integer(kind=int8) :: l
l = int(len(x), kind=int8)
end function ulen08
function ulen16(x) result(l)
character(len=*,kind=ucs4), intent(in) :: x
integer(kind=int16) :: l
l = int(len(x), kind=int16)
end function ulen16
function ulen32(x) result(l)
character(len=*,kind=ucs4), intent(in) :: x
integer(kind=int32) :: l
l = int(len(x), kind=int32)
end function ulen32
function ulen64(x) result(l)
character(len=*,kind=ucs4), intent(in) :: x
integer(kind=int64) :: l
l = int(len(x), kind=int64)
end function ulen64
end program repeat_p
|
