1! { dg-do compile } 2! 3! PR 37254: Reject valid PROCEDURE statement with implicit interface 4! 5! Original test case by Dominique d'Humieres <dominiq@lps.ens.fr> 6! Modified by Janus Weil <janus@gcc.gnu.org> 7 8 real function proc3( arg1 ) 9 integer :: arg1 10 proc3 = arg1+7 11 end function proc3 12 13program myProg 14 PROCEDURE () :: proc3 15 call proc4( proc3 ) 16 17contains 18 19 subroutine proc4( arg1 ) 20 PROCEDURE(real) :: arg1 21 print*, 'the func: ', arg1(0) 22 end subroutine proc4 23 24end program myProg 25 26