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