gcc/testsuite/gfortran.fortran-torture/compile/pr45634.f90 - gcc - Git at Google

       SUBROUTINE RCRDRD (VTYP)
       CHARACTER(4), INTENT(OUT) :: VTYP
       CHARACTER(1), SAVE :: DBL = "D"
       VTYP = DBL
       END
	SUBROUTINE RCRDRD (VTYP)
	CHARACTER(4), INTENT(OUT) :: VTYP
	CHARACTER(1), SAVE :: DBL = "D"
	VTYP = DBL
	END