diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2008-10-21 20:27:27 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2008-10-21 20:27:27 +0000 |
| commit | 86b9515c41b13f0fca9d0e89dd495772a014d364 (patch) | |
| tree | f4856223f96baf58355c9dc7fd2fc4c7f61ee890 /gcc | |
| parent | c0c7206d89c1d73f5253415d7a8958f932f62e2b (diff) | |
| download | gcc-86b9515c41b13f0fca9d0e89dd495772a014d364.zip gcc-86b9515c41b13f0fca9d0e89dd495772a014d364.tar.gz gcc-86b9515c41b13f0fca9d0e89dd495772a014d364.tar.bz2 | |
re PR fortran/36795 (crash with character allocatable array argument)
2008-10-21 Paul Thomas <pault@gcc.gnu.org>
PR libfortran/36795
* gfortran.dg/char_expr_3.f90: Add the original test case.
From-SVN: r141277
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_expr_3.f90 | 26 |
2 files changed, 31 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b008537..0f322dc 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-10-21 Paul Thomas <pault@gcc.gnu.org> + + PR libfortran/36795 + * gfortran.dg/char_expr_3.f90: Add the original test case. + 2008-10-21 Thomas Koenig <tkoenig@gcc.gnu.org> PR libfortran/34670 diff --git a/gcc/testsuite/gfortran.dg/char_expr_3.f90 b/gcc/testsuite/gfortran.dg/char_expr_3.f90 new file mode 100644 index 0000000..fed0f3c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/char_expr_3.f90 @@ -0,0 +1,26 @@ +! { dg-do run } +! Check the fix for PR36795, where the parentheses in the call to foo were +! simplified out ie. foo((xx), xx) simplified to foo (xx, xx) +! +! Conributed by Vivek Rao <vivekrao4@yahoo.com> +! +program main + implicit none + character(len=10), allocatable :: xx(:) + character(len=10) :: yy + allocate (xx(2)) + xx(1) = "" + xx(2) = "dog" + call foo ((xx),xx) + if (trim (xx(1)) .ne. "dog") call abort + if (size (xx, 1) .ne. 1) call abort +contains + subroutine foo (xx,yy) + character(len=*), intent(in) :: xx(:) + character(len=*), intent(out), allocatable :: yy(:) + if (allocated (yy)) deallocate (yy) + allocate (yy(1)) + yy = xx(2) + end subroutine foo +end program main + |