! { 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 |