| ! { dg-lto-do link } | |
| ! { dg-lto-options {{-g -flto -Wno-lto-type-mismatch} {-g -O -flto -Wno-lto-type-mismatch}} } | |
| program species | |
| integer spk(2) | |
| real eval(2) | |
| interface | |
| subroutine atom(sol,k,eval) | |
| real, intent(in) :: sol | |
| integer, intent(in) :: k(2) | |
| real, intent(out) :: eval(2) | |
| end subroutine | |
| end interface | |
| spk = 2 | |
| call atom(1.1,spk,eval) | |
| end program | |