1! { dg-do compile }
2!
3! PR fortran/34254
4!
5! The character-kind parameter was not accepted.
6!
7module m
8  integer, parameter :: char_t = kind('a')
9end module m
10
11character(1,char_t) function test1()
12  use m
13  test1 = 'A'
14end function test1
15
16character(len=1,kind=char_t) function test2()
17  use m
18  test2 = 'A'
19end function test2
20
21character(kind=char_t,len=1) function test3()
22  use m
23  test3 = 'A'
24end function test3
25
26character(1,kind=char_t) function test4()
27  use m
28  test4 = 'A'
29end function test4
30