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!
7module bar
8contains
9  type(non_exist) function func2() ! { dg-error "not accessible" }
10  end function func2
11end module bar
12