| ! { 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 |