mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-21 22:51:06 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/36795 (crash with character allocatable array argument)

Browse Source 
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
This commit is contained in:
Paul Thomas 2008-10-21 20:27:27 +00:00
parent c0c7206d89
commit 86b9515c41
2 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

26
gcc/testsuite/gfortran.dg/char_expr_3.f90 Normal file
View File

@ -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