150472Speter! { dg-do compile }
238738Sbrian!
337Srgrimes! PR 54387: [F03] Wrongly accepts non-proc result variable on the RHS of a proc-pointer assignment
437Srgrimes!
537Srgrimes! Contributed by James Van Buskirk
67356Sjoerg
718689Sacheinteger function foo()
818689Sache  procedure(), pointer :: i
918689Sache  i => foo  ! { dg-error "is invalid as proc-target in procedure pointer assignment" }
1045232Sbrianend
1145232Sbrian
1218689Sacherecursive function bar() result (res)
1318689Sache  integer :: res
1418689Sache  procedure(), pointer :: j
1598978Smaxim  j => bar
1645232Sbrianend
1737Srgrimes