1! { dg-do compile } 2! Tests fix for PR15976 3! 4module sd 5 integer, parameter :: n = 20 6 integer :: i(n) 7 integer :: j(m) ! { dg-error "must have constant shape" } 8 integer, pointer :: p(:) 9 integer, allocatable :: q(:) 10contains 11 function init (x, l) 12 integer :: x(l) 13 integer :: init(l) 14 init = x 15 end function init 16end module sd 17