1! { dg-do compile }
2! { dg-options "-pedantic" }
3! PR fortran/36534
4CHARACTER (kind=4,len=*) MY_STRING4(1:3)
5PARAMETER ( MY_STRING4 = (/ "A" , "B", "C" /) )
6end
7