gcc/testsuite/gfortran.dg/pr68154.f90

   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
   5 program p
   6    character(1), parameter :: x1(2) = 'a'
   7    character(*), parameter :: x2(2) = x1
   8    character(*), parameter :: x3(*) = x1
   9 end