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