1 2 3 4 5 6 7 8
! { dg-do compile } ! { dg-options "-std=legacy" } ! character*2 a character*4 b parameter (a="12") parameter (b = a(1:2)) end