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

re PR fortran/49648 (ICE(segfault) with MATMUL and function-result actual argument) 

2011-07-07  Mikael Morin  <mikael.morin@sfr.fr>

	PR fortran/49648
	* gfortran.dg/result_in_spec_4.f90: New test.

From-SVN: r176012
This commit is contained in:
Mikael Morin 2011-07-07 23:03:25 +02:00 committed by Mikael Morin
parent e3d748dd0e
commit ceeb79a48e
2 changed files with 32 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 @@
2011-07-07 Mikael Morin <mikael.morin@sfr.fr>
PR fortran/49648
* gfortran.dg/result_in_spec_4.f90: New test.
2011-07-07 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* gcc.target/sparc/cas64.c: New test.

27
gcc/testsuite/gfortran.dg/result_in_spec_4.f90 Normal file
View File

@ -0,0 +1,27 @@
! { dg-do compile }
!
! PR fortran/49648
! ICE for calls to a use-associated function returning an array whose spec
! depends on a function call.
! Contributed by Tobias Burnus <burnus@net-b.de>
module m2
COMPLEX, SAVE, ALLOCATABLE :: P(:)
contains
FUNCTION getPhaseMatrix() RESULT(PM)
COMPLEX:: PM(SIZE(P),3)
PM=0.0
END FUNCTION
end module m2
module m
use m2
contains
SUBROUTINE gf_generateEmbPot()
COMPLEX :: sigma2(3,3)
sigma2 = MATMUL(getPhaseMatrix(), sigma2)
END SUBROUTINE
end module m
! { dg-final { cleanup-modules "m m2" } }