blob: 095aef60186ad9afc001aae55d18084568d47863 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
! PR 92863 - this used to ICE
! Test case by Arseny Solokha.
type(l1) function mp() ! { dg-error "type for function" }
call sub(mp) ! { dg-error "Type mismatch" }
end function mp
function bi(ry)
call sub(ry) ! { dg-error "Type mismatch" }
end function bi
|