diff options
| -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 + |