gcc/testsuite/gfortran.dg/bind_c_procs_4.f90

   1 ! { dg-do compile }
   2 ! PR fortran/95375 - ICE in add_use_op
   3 ! Contributed by G.Steinmetz
   4
   5 function f() result(n) bind(c)      ! { dg-error "not C interoperable" }
   6   class(*), allocatable :: n
   7 end
   8 program p
   9   interface
  10      function f() result(n) bind(c)
  11        integer :: n
  12      end
  13   end interface
  14   if ( f() /= 0 ) stop
  15 end
  16
  17 ! { dg-prune-output "Type mismatch" }