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
5program main
6  INTEGER, DIMENSION(:), POINTER :: a
7  DO I=1,MIN(SIZE(a),SIZE(a))
8  ENDDO
9END program main
10