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