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