gcc/testsuite/gfortran.dg/function_optimize_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O" }
   3 ! PR 48352 - variable elimination in a DO loop caused segfaults.
   4 ! Test case contributed by Joost VandeVondele
   5 program main
   6   INTEGER, DIMENSION(:), POINTER :: a
   7   DO I=1,MIN(SIZE(a),SIZE(a))
   8   ENDDO
   9 END program main