git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/68426 (Simplification of SPREAD with a derived type element is unimplemented) 

2019-01-09  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/68426
	* simplify.c (gfc_simplify_spread): Also simplify if the
	type of source is an EXPR_STRUCTURE.

2019-01-09  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/68426
	* gfortran.dg/spread_simplify_1.f90: New test.

From-SVN: r267781
This commit is contained in:
Thomas Koenig 2019-01-09 20:31:07 +00:00
parent 33142cf9cf
commit ee0b3cea20
4 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2019-01-09 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/68426
* simplify.c (gfc_simplify_spread): Also simplify if the
type of source is an EXPR_STRUCTURE.
2019-01-08 Janus Weil <janus@gcc.gnu.org> 2019-01-08 Janus Weil <janus@gcc.gnu.org>
PR fortran/88047 PR fortran/88047

3
gcc/fortran/simplify.c
View File

@ -7572,7 +7572,8 @@ gfc_simplify_spread (gfc_expr *source, gfc_expr *dim_expr, gfc_expr *ncopies_exp
return NULL; return NULL;
} }
if (source->expr_type == EXPR_CONSTANT) if (source->expr_type == EXPR_CONSTANT
|| source->expr_type == EXPR_STRUCTURE)
{ {
gcc_assert (dim == 0); gcc_assert (dim == 0);

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2019-01-09 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/68426
* gfortran.dg/spread_simplify_1.f90: New test.
2019-01-09 Uroš Bizjak <ubizjak@gmail.com> 2019-01-09 Uroš Bizjak <ubizjak@gmail.com>
* lib/target-supports.exp * lib/target-supports.exp

16
gcc/testsuite/gfortran.dg/spread_simplify_1.f90 Normal file
View File

@ -0,0 +1,16 @@
! { dg-do run }
! PR 68426 - simplification used to fail.
module m
implicit none
type t
integer :: i
end type t
type(t), dimension(2), parameter :: a1 = (/ t(1), t(2) /)
type(t), dimension(1), parameter :: c = spread ( a1(1), 1, 1 )
end module m
program main
use m
if (c(1)%i /= 1) stop 1
end program main