2014-01-30 Alangi Derick <alangiderick@gmail.com>
[official-gcc.git] / gcc / testsuite / gfortran.dg / proc_ptr_9.f90
blob22708b8f1a845bf53305669140ef6ca9e409d50f
1 ! { dg-do compile }
3 ! PR fortran/36705
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
7 save :: p
8 procedure() :: p
9 pointer :: p
11 contains
13 subroutine bar(x)
14 procedure(), intent(in) :: x
15 pointer :: x
16 end subroutine bar
18 end