blob: 4c343bf53c5a4063f68ac7844f32196605855081 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { 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
|
