summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/proc_decl_16.f90
blob: 3251e52f512adace55fc6ee1617c96ea5ca1aa5a (plain)
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