re PR fortran/35780 (internal compiler error for complicated PARAMETER expressions)
2008-12-22 Paul Thomas <pault@gcc.gnu.org> PR fortran/35780 * gfortran.dg/alloc_comp_optional_1.f90: New test. From-SVN: r142890
This commit is contained in:
parent
8a2725318b
commit
d797a4ed79
@ -1,3 +1,8 @@
|
||||
2008-12-22 Paul Thomas <pault@gcc.gnu.org>
|
||||
|
||||
PR fortran/35780
|
||||
* gfortran.dg/alloc_comp_optional_1.f90: New test.
|
||||
|
||||
2008-12-22 Ben Elliston <bje@au.ibm.com>
|
||||
|
||||
PR c++/38362
|
||||
|
31
gcc/testsuite/gfortran.dg/alloc_comp_optional_1.f90
Normal file
31
gcc/testsuite/gfortran.dg/alloc_comp_optional_1.f90
Normal file
@ -0,0 +1,31 @@
|
||||
! { dg-do run }
|
||||
! Tests the fix for PR38602, a regression caused by a modification
|
||||
! to the nulling of INTENT_OUT dummies with allocatable components
|
||||
! that caused a segfault with optional arguments.
|
||||
!
|
||||
! Contributed by David Kinniburgh <davidkinniburgh@yahoo.co.uk>
|
||||
!
|
||||
program test_iso
|
||||
type ivs
|
||||
character(LEN=1), dimension(:), allocatable :: chars
|
||||
end type ivs
|
||||
type(ivs) :: v_str
|
||||
integer :: i
|
||||
call foo(v_str, i)
|
||||
if (v_str%chars(1) .ne. "a") call abort
|
||||
if (i .ne. 0) call abort
|
||||
call foo(flag = i)
|
||||
if (i .ne. 1) call abort
|
||||
contains
|
||||
subroutine foo (arg, flag)
|
||||
type(ivs), optional, intent(out) :: arg
|
||||
integer :: flag
|
||||
if (present(arg)) then
|
||||
arg = ivs([(char(i+96), i = 1,10)])
|
||||
flag = 0
|
||||
else
|
||||
flag = 1
|
||||
end if
|
||||
end subroutine
|
||||
end
|
||||
|
Loading…
Reference in New Issue
Block a user