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