gcc/testsuite/gfortran.dg/proc_decl_16.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

! { dg-do compile }
! PR fortran/36459
!
abstract interface
  function dim()
    integer :: dim
  end function dim
end interface
procedure(dim) :: f

interface
  integer function tan()
  end function
end interface
procedure(tan) :: g

print *, f()

print *, tan()

end