gcc/testsuite/gfortran.dg/function_types_1.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR34431 in which function TYPEs that were
   3 ! USE associated would cause an error.
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6 !
   7 module bar
   8 contains
   9   type(non_exist) function func2() ! { dg-error "not accessible" }
  10   end function func2
  11 end module bar
  12 ! { dg-final { cleanup-modules "bar" } }