aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr103691.f90
blob: f1f551e20fa1f546672ea84110b7dc91830e33c8 (plain)
1
2
3
4
5
6
7
8
9
! PR fortran/103691
! { dg-do compile }
! { dg-options "-O2 -g" }

program pr103691
  real, parameter :: a(0) = 2.0
  real, allocatable :: b(:)
  allocate (b, mold=a)
end