| ! { dg-do run } | |
| ! Tests the fix for PR19546 in which an ICE would result from | |
| ! setting the parent result in a contained procedure. | |
| ! From the testcase of Francois-Xavier Coudert/Tobias Schlueter | |
| ! | |
| 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 | |
| integer, external :: f | |
| if (f ().ne.2) call abort () | |
| end |