gcc/testsuite/gfortran.dg/parent_result_ref_4.f90

   1 ! { dg-do run }
   2 ! Tests the fix for PR19546 in which an ICE would result from
   3 ! setting the parent result in a contained procedure.
   4 ! Check that parent function results can be referenced in modules.
   5 !
   6 module m
   7 contains
   8   function f()
   9     integer :: f
  10     f = 42
  11     call sub ()
  12     if (f.eq.1) f = f + 1
  13   contains
  14     subroutine sub
  15      if (f.eq.42) f = f - 41
  16     end subroutine sub
  17   end function f
  18 end module m
  19
  20   use m
  21   if (f ().ne.2) call abort ()
  22 end