1! PR fortran/77666
2! { dg-do compile }
3
4subroutine foo(x)
5  interface
6    subroutine baz(x, y)
7      integer, allocatable :: x(:), y
8    end subroutine
9  end interface
10  integer, allocatable :: x(:), y
11!$omp parallel private(x, y)
12  call baz (x, y)
13!$omp end parallel
14end
15subroutine bar
16  interface
17    subroutine baz(x, y)
18      integer, allocatable :: x(:), y
19    end subroutine
20  end interface
21  integer, allocatable :: x(:), y
22  call baz (x, y)
23!$omp parallel private(x, y)
24  call baz (x, y)
25!$omp end parallel
26end
27