OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/15314 (ICE caused by array initializer in derived type definition)

Browse Source 
PR fortran/15314
	* gfortran.fortran-torture/execute/der_init_s.f90: New test.

From-SVN: r81818
This commit is contained in:
Paul Brook 2004-05-13 23:22:13 +00:00
parent 6b9bee8ee6
commit c39373da49
3 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/fortran/ChangeLog
View File

@ -1,4 +1,4 @@
2004-05-13 Paul Brook <paul@codesourcery.com>
2004-05-13 Victor Leikehman <lei@haifasphere.co.il>
PR fortran/15314
* trans-expr.c (gfc_conv_structure): Use field type, not expr type.

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2004-05-13 Paul Brook <paul@codesourcery.com>
PR fortran/15314
* gfortran.fortran-torture/execute/der_init_s.f90: New test.
2004-05-13 Andrew Pinski <pinskia@physics.uc.edu>
* gcc.dg/uninit-H.c: Test for __PPC__ and __ppc__

15
gcc/testsuite/gfortran.fortran-torture/execute/der_init_2.f90 Normal file
View File

@ -0,0 +1,15 @@
! PR 15314
! We were looking at the type of the initialization expression, not the type
! of the field.
program der_init_2
implicit none
type foo
integer :: a(3) = 42
integer :: b = 123
end type
type (foo) :: v
if ((v%b .ne. 123) .or. any (v%a .ne. 42)) call abort ();
end program