gcc/testsuite/gfortran.dg/largeequiv_1.f90

   1 ! { dg-do run }
   2 ! PR 20361 : We didn't check if a large equivalence actually fit on
   3 ! the stack, and therefore segfaulted at execution time
   4 subroutine test
   5 integer i(1000000), j
   6 equivalence (i(50), j)
   7
   8 j = 1
   9 if (i(50) /= j) call abort()
  10 end subroutine test
  11
  12 call test
  13 end