2014-04-15 Richard Biener <rguenther@suse.de>
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr29713.f90
blobe60904395aebc484051f7719606ffbd3687050f5
1 ! { dg-do compile }
2 ! { dg-options "-std=legacy" }
4 character*2 a
5 character*4 b
6 parameter (a="12")
7 parameter (b = a(1:2))
8 end