1! { dg-do compile }
2!
3! PR 49400: [F08] Proc-pointer declaration in BLOCK construct
4!
5! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
6
7  block
8    procedure(real),pointer :: p
9  end block
10end
11