Sign in
gnu
/
gcc
/
730f52e05a1fb5c8cd92e352e9b191a6332be5c2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
proc_ptr_9.f90
blob: 22708b8f1a845bf53305669140ef6ca9e409d50f [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR fortran
/
36705
!
!
Contributed
by
Tobias
Burnus
<
burnus@gcc
.
gnu
.
org
>
save
::
p
procedure
()
::
p
pointer
::
p
contains
subroutine bar
(
x
)
procedure
(),
intent
(
in
)
::
x
pointer
::
x
end
subroutine bar
end