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