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:
parent
e3d748dd0e
commit
ceeb79a48e
|
@ -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.
|
||||
|
|
|
@ -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" } }
|
Loading…
Reference in New Issue