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