26 lines
505 B
Fortran
26 lines
505 B
Fortran
! { 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
|
|
|