1! { dg-do compile } 2! This checks the fix for PR34910, in which the invalid reference 3! below caused an ICE. 4! 5! Contributed by Daniel Franke <dfranke@gcc.gnu.org> 6! 7MODULE foo 8CONTAINS 9 INTEGER FUNCTION f() 10 f = 42 11 CONTAINS 12 LOGICAL FUNCTION f1() 13 f1 = .TRUE. 14 END FUNCTION 15 16 LOGICAL FUNCTION f2() 17 f1 = .FALSE. ! { dg-error "is not a variable" } 18 END FUNCTION 19 END FUNCTION 20END MODULE 21