29 lines
485 B
Fortran
29 lines
485 B
Fortran
! { dg-do run }
|
|
! PR fortran/33945
|
|
!
|
|
! PROCEDURE in the interface was wrongly rejected
|
|
module modproc
|
|
implicit none
|
|
interface bar
|
|
procedure x
|
|
end interface bar
|
|
procedure(sub) :: x
|
|
interface
|
|
integer function sub()
|
|
end function sub
|
|
end interface
|
|
end module modproc
|
|
|
|
integer function x()
|
|
implicit none
|
|
x = -5
|
|
end function x
|
|
|
|
program test
|
|
use modproc
|
|
implicit none
|
|
if(x() /= -5) call abort()
|
|
end program test
|
|
|
|
! { dg-final { cleanup-modules "modproc" } }
|