PR ipa/83051

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr68154.f90

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