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