1! { dg-do compile }
2!
3! PR fortran/36705
4!
5! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
6
7save :: p
8procedure() :: p
9pointer :: p
10
11contains
12
13subroutine bar(x)
14 procedure(), intent(in) :: x
15 pointer :: x
16end subroutine bar
17
18end
19