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