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