blob: f1f551e20fa1f546672ea84110b7dc91830e33c8 [file] [log] [blame]
! 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