1! { dg-do compile }
2! PR fortran/82049
3! Original code contributed by John Harper <john dot harper at vuw dot ac dot nz>
4program ice ! f2003
5  implicit none
6  character(*), parameter:: a = 'ice', b = '*'
7  character(*), parameter:: c(2) = [character(len(a)) :: a, b]
8  print "(2A4)",adjustr(c)
9end program ice
10