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