2017-12-08 Richard Biener <rguenther@suse.de>
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr46884.f
blob54ae57d5c76eedeb1a7a812d86cfe0f09d5435e9
1 C PR fortran/46884
2 C { dg-do compile }
3 C { dg-options "" }
4 SUBROUTINE F
5 IMPLICIT CHARACTER*12 (C)
6 CALL G(C1)
7 CALL H(C1(1:4))
8 END