gcc/testsuite/gfortran.dg/interface_45.f90

   1 ! { dg-do compile }
   2 ! PR 92863 - this used to ICE
   3 ! Test case by Arseny Solokha.
   4
   5 type(l1) function mp() ! { dg-error "type for function" }
   6   call sub(mp) ! { dg-error "Type mismatch" }
   7 end function mp
   8
   9 function bi(ry)
  10   call sub(ry) ! { dg-error "Type mismatch" }
  11 end function bi