| ! { dg-do compile } | |
| ! | |
| ! PR 37254: Reject valid PROCEDURE statement with implicit interface | |
| ! | |
| ! Original test case by Dominique d'Humieres <dominiq@lps.ens.fr> | |
| ! Modified by Janus Weil <janus@gcc.gnu.org> | |
| real function proc3( arg1 ) | |
| integer :: arg1 | |
| proc3 = arg1+7 | |
| end function proc3 | |
| program myProg | |
| PROCEDURE () :: proc3 | |
| call proc4( proc3 ) | |
| contains | |
| subroutine proc4( arg1 ) | |
| PROCEDURE(real) :: arg1 | |
| print*, 'the func: ', arg1(0) | |
| end subroutine proc4 | |
| end program myProg | |