blob: 48cb43e7f8de42ff4b92c91bc66d0011e412b0cf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { dg-do compile }
!
! PR 54190: TYPE(*)/assumed-rank: Type/rank check too relaxed for dummy procedure
!
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
implicit none
call sub(f) ! { dg-error "Type mismatch in argument" }
contains
subroutine f(x)
type(*) :: x
end subroutine
subroutine sub(g)
interface
subroutine g(x)
integer :: x
end subroutine
end interface
end subroutine
end
|