diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2015-05-04 14:27:14 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2015-05-04 14:27:14 +0000 |
| commit | a982bcf962c4b72371642a9369d6dea4ac05a979 (patch) | |
| tree | 4934d54887a20674a29d2229b47b8e3b7079e72c | |
| parent | 78a8b26c40f8be8eaca5aaa2680e213e0bd7d05a (diff) | |
| download | gcc-a982bcf962c4b72371642a9369d6dea4ac05a979.zip gcc-a982bcf962c4b72371642a9369d6dea4ac05a979.tar.gz gcc-a982bcf962c4b72371642a9369d6dea4ac05a979.tar.bz2 | |
re PR fortran/44735 (ICE on FORALL with character array pointer)
PR fortran/44735
* gfortran.dg/pr44735.f90: New test.
From-SVN: r222766
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr44735.f90 | 16 |
2 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5830818..cb7bc61 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-05-04 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR fortran/44735 + * gfortran.dg/pr44735.f90: New test. + 2015-05-04 Richard Biener <rguenther@suse.de> PR tree-optimization/65965 diff --git a/gcc/testsuite/gfortran.dg/pr44735.f90 b/gcc/testsuite/gfortran.dg/pr44735.f90 new file mode 100644 index 0000000..0c9b8de --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr44735.f90 @@ -0,0 +1,16 @@ +! { dg-do run } + +program main + if (bug() /= "abcdefghij") call abort +contains + function bug() + character(len=10) :: bug + character(len=1), dimension(:), pointer :: p_chars + allocate(p_chars(10)) + p_chars = ['a','b','c','d','e','f','g','h','i','j'] + forall (i=1:len(bug)) + bug(i:i) = p_chars(i) + end forall + deallocate(p_chars) + end function bug +end program main |