gcc/testsuite/gfortran.dg/dummy_procedure_5.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 50517: gfortran must detect that actual argument type is different from dummy argument type (r178939)
   4 !
   5 ! Contributed by Vittorio Zecca <zeccav@gmail.com>
   6
   7 program main
   8
   9   type t
  10     integer g
  11   end type
  12
  13   type u
  14     integer g
  15   end type
  16
  17   type(u), external :: ufunc
  18   call sub(ufunc)            ! { dg-error "Type mismatch in function result" }
  19
  20 contains
  21
  22   subroutine sub(tfunc)
  23     type(t), external :: tfunc
  24   end subroutine
  25
  26 end program