mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-10 23:55:50 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/35184 (ICE in gfc_conv_array_index_offset)

Browse Source 
2008-03-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR testsuite/35184
	gfortran.dg/elemental_subroutine_6.f90: New test.

From-SVN: r133253
This commit is contained in:
Jerry DeLisle 2008-03-15 16:53:05 +00:00
parent db5cf0c77e
commit 6b927641f3
2 changed files with 29 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-03-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR testsuite/35184
gfortran.dg/elemental_subroutine_6.f90: New test.
2008-03-15 Richard Guenther <rguenther@suse.de>
* gcc.dg/pr23911.c: Adjust testcase.

24
gcc/testsuite/gfortran.dg/elemental_subroutine_6.f90 Normal file
View File

@ -0,0 +1,24 @@
! { dg-do compile }
! PR35184 ICE in gfc_conv_array_index_offset
MODULE foo
TYPE, PUBLIC :: bar
PRIVATE
REAL :: value
END TYPE bar
INTERFACE ASSIGNMENT (=)
MODULE PROCEDURE assign_bar
END INTERFACE ASSIGNMENT (=)
CONTAINS
ELEMENTAL SUBROUTINE assign_bar (to, from)
TYPE(bar), INTENT(OUT) :: to
TYPE(bar), INTENT(IN) :: from
to%value= from%value
END SUBROUTINE
SUBROUTINE my_sub (in, out)
IMPLICIT NONE
TYPE(bar), DIMENSION(:,:), POINTER :: in
TYPE(bar), DIMENSION(:,:), POINTER :: out
ALLOCATE( out(1:42, 1:42) )
out(1, 1:42) = in(1, 1:42)
END SUBROUTINE
END MODULE foo