Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/parent_result_ref_4.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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) STOP 1 end