gcc/testsuite/gfortran.dg/assumed_type_16.f90

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-std=f2008" }
   3 !
   4 ! PR fortran/104143
   5 !
   6  interface
   7    subroutine foo(x)
   8      type(*) :: x(*)  ! { dg-error "Fortran 2018: Assumed type" }
   9    end
  10  end interface
  11  integer :: a
  12  call foo(a)  ! { dg-error "Type mismatch in argument" }
  13  call foo((a))  ! { dg-error "Type mismatch in argument" }
  14 end