Google Git
Sign in
gnu / gcc / fba228e259dd5112851527f2dbb62c5601100985 / . / gcc / testsuite / gfortran.dg / pr46884.f
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