gcc/testsuite/gfortran.dg/assumed_type_7.f90

   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
   7 implicit none
   8 call sub(f)    ! { dg-error "Type mismatch in argument" }
   9 contains
  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
  23 end