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