1! { dg-do compile }
2! PR fortran/68154
3! Original code contributed by Gerhard Steinmetz
4! gerhard dot steinmetz dot fortran at t-online dot de
5program p
6 character(1), parameter :: x1(2) = 'a'
7 character(*), parameter :: x2(2) = x1
8 character(*), parameter :: x3(*) = x1
9end
10