1C PR fortran/46884
2C { dg-do compile }
3C { dg-options "" }
4      SUBROUTINE F
5      IMPLICIT CHARACTER*12 (C)
6      CALL G(C1)
7      CALL H(C1(1:4))
8      END
9