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