blob: 3f0e9a37910cdaa04b115aeb6d6e847b8c268640 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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" } }
|
