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