gcc/testsuite/gfortran.dg/assumed_type_16.f90

! { dg-do compile }
! { dg-additional-options "-std=f2008" }
!
! PR fortran/104143
!
 interface
   subroutine foo(x)
     type(*) :: x(*)  ! { dg-error "Fortran 2018: Assumed type" }
   end
 end interface
 integer :: a
 call foo(a)  ! { dg-error "Type mismatch in argument" }
 call foo((a))  ! { dg-error "Type mismatch in argument" }
end