diff options
author | H.J. Lu <hjl.tools@gmail.com> | 2015-02-10 04:13:42 -0800 |
---|---|---|
committer | H.J. Lu <hjl.tools@gmail.com> | 2015-02-10 04:13:42 -0800 |
commit | 9547f24e09cb9cf4db70f0ad308d2f03015c7d81 (patch) | |
tree | 16b168d8b010c84e72d37f9aa22e216d5a2a8b3d /gcc/testsuite/gfortran.dg/ichar_3.f90 | |
parent | 5a28f86b322357cb07d2ae3a42fa39f0749cf9f2 (diff) | |
parent | ae10eb82fe34c18640ad65c2ab94ffc53f349315 (diff) | |
download | gcc-hjl/x32/gcc-4_7-branch.tar.gz |
Merge remote-tracking branch 'origin/gcc-4_7-branch' into hjl/x32/gcc-4_7-branchhjl/x32/gcc-4_7-branch
Diffstat (limited to 'gcc/testsuite/gfortran.dg/ichar_3.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/ichar_3.f90 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/ichar_3.f90 b/gcc/testsuite/gfortran.dg/ichar_3.f90 new file mode 100644 index 00000000000..d0f5c8b8cf8 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/ichar_3.f90 @@ -0,0 +1,13 @@ +! { dg-do compile } +! +! PR fortran/59599 +! The call to ichar was triggering an ICE. +! +! Original testcase from Fran Martinez Fadrique <fmartinez@gmv.com> + +character(1) cpk(2) +integer res(2) +cpk = 'a' +res = ichar( cpk, kind=1 ) +print *, ichar( cpk, kind=1 ) +end |