diff options
author | hjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-10 14:44:20 +0000 |
---|---|---|
committer | hjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-10 14:44:20 +0000 |
commit | 3689689967532fcba08488a67351be75f6e8faee (patch) | |
tree | 05617c079ccaa413d47387ff2560d6ff0312a40c /gcc/testsuite/gfortran.fortran-torture | |
parent | 5eff8174eaf4360ecdaae13f89dafb7ce58c88ff (diff) | |
download | gcc-3689689967532fcba08488a67351be75f6e8faee.tar.gz |
Check that result of string folding is of integral type.
gcc/
2010-09-10 H.J. Lu <hongjiu.lu@intel.com>
PR middle-end/45634
* tree-ssa-ccp.c (fold_const_aggregate_ref): Check that result
of string folding is of integral type.
gcc/testsuite/
2010-09-10 H.J. Lu <hongjiu.lu@intel.com>
PR middle-end/45634
* gfortran.fortran-torture/compile/pr45634.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164183 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture')
-rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/compile/pr45634.f90 | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/pr45634.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/pr45634.f90 new file mode 100644 index 00000000000..ab0c33ad32d --- /dev/null +++ b/gcc/testsuite/gfortran.fortran-torture/compile/pr45634.f90 @@ -0,0 +1,5 @@ + SUBROUTINE RCRDRD (VTYP) + CHARACTER(4), INTENT(OUT) :: VTYP + CHARACTER(1), SAVE :: DBL = "D" + VTYP = DBL + END |