1! { dg-do run }
2! { dg-options "-fbackslash" }
3
4module kinds
5  implicit none
6  integer, parameter :: one = 1, four = 4
7end module kinds
8
9module inner
10  use kinds
11  implicit none
12  character(kind=one,len=*), parameter :: inner1 = "abcdefg \xEF kl"
13  character(kind=four,len=*), parameter :: &
14        inner4 = 4_"\u9317x \U001298cef   dea\u10De"
15end module inner
16
17module middle
18  use inner
19  implicit none
20  character(kind=one,len=len(inner1)), dimension(2,2), parameter :: middle1 &
21    = reshape ([ character(kind=one,len=len(inner1)) :: inner1, ""], &
22               [ 2, 2 ], &
23               [ character(kind=one,len=len(inner1)) :: "foo", "ba " ])
24  character(kind=four,len=len(inner4)), dimension(2,2), parameter :: middle4 &
25    = reshape ([ character(kind=four,len=len(inner4)) :: inner4, 4_""], &
26               [ 2, 2 ], &
27               [ character(kind=four,len=len(inner4)) :: 4_"foo", 4_"ba " ])
28end module middle
29
30module outer
31  use middle
32  implicit none
33  character(kind=one,len=*), parameter :: my1(2) = middle1(1,:)
34  character(kind=four,len=*), parameter :: my4(2) = middle4(1,:)
35end module outer
36
37program test_modules
38  use outer, outer1 => my1, outer4 => my4
39  implicit none
40
41  if (len (inner1) /= len(inner4)) call abort
42  if (len (inner1) /= len_trim(inner1)) call abort
43  if (len (inner4) /= len_trim(inner4)) call abort
44
45  if (len(middle1) /= len(inner1)) call abort
46  if (len(outer1) /= len(inner1)) call abort
47  if (len(middle4) /= len(inner4)) call abort
48  if (len(outer4) /= len(inner4)) call abort
49
50  if (any (len_trim (middle1) /= reshape([len(middle1), 0, 3, 2], [2,2]))) &
51    call abort
52  if (any (len_trim (middle4) /= reshape([len(middle4), 0, 3, 2], [2,2]))) &
53    call abort
54  if (any (len_trim (outer1) /= [len(outer1), 3])) call abort
55  if (any (len_trim (outer4) /= [len(outer4), 3])) call abort
56
57end program test_modules
58