1! { dg-do compile }
2! { dg-options "-std=f2003" }
3!
4! PR39998: Procedure Pointer Assignments: Statement Functions & Internal Functions.
5!
6! Contributed by Tobias Burnus <burnus@net-b.de>
7
8  procedure(), pointer :: p
9  f(x) = x**2  ! { dg-warning "Obsolescent feature" }
10  p => f  ! { dg-error "invalid in procedure pointer assignment" }
11  p => sub  ! { dg-error "invalid in procedure pointer assignment" }
12contains
13  subroutine sub
14  end subroutine sub
15end
16
17