From 86b9515c41b13f0fca9d0e89dd495772a014d364 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Tue, 21 Oct 2008 20:27:27 +0000 Subject: [PATCH] re PR fortran/36795 (crash with character allocatable array argument) 2008-10-21 Paul Thomas PR libfortran/36795 * gfortran.dg/char_expr_3.f90: Add the original test case. From-SVN: r141277 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/char_expr_3.f90 | 26 ++++++++++++++++++++++++++ 2 files changed, 31 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/char_expr_3.f90 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 + + PR libfortran/36795 + * gfortran.dg/char_expr_3.f90: Add the original test case. + 2008-10-21 Thomas Koenig 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 +! +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 + -- 2.7.4