22 lines
456 B
Fortran
22 lines
456 B
Fortran
! { 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" } }
|