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