! { 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" } } |