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