blob: 54ae57d5c76eedeb1a7a812d86cfe0f09d5435e9 [file] [log] [blame]
C PR fortran/46884
C { dg-do compile }
C { dg-options "" }
SUBROUTINE F
IMPLICIT CHARACTER*12 (C)
CALL G(C1)
CALL H(C1(1:4))
END