| ! { dg-do run } | |
| ! Tests the fix for PR19546 in which an ICE would result from | |
| ! setting the parent result in a contained procedure. | |
| ! Check that parent function results can be referenced in modules. | |
| ! | |
| module m | |
| contains | |
| function f() | |
| integer :: f | |
| f = 42 | |
| call sub () | |
| if (f.eq.1) f = f + 1 | |
| contains | |
| subroutine sub | |
| if (f.eq.42) f = f - 41 | |
| end subroutine sub | |
| end function f | |
| end module m | |
| use m | |
| if (f ().ne.2) call abort () | |
| end | |
| ! { dg-final { cleanup-modules "m" } } |