gcc/testsuite/gfortran.dg/proc_decl_20.f90


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

! { dg-do compile }
!
! PR fortran/36463
! Gfortran used to fail on this testcase with: 
! gfc_get_default_type(): Bad symbol '@0'
!
! Original program by James Van Buskirk
! Reduced by Janus Weil <janus@gcc.gnu.org>

module other_fun
   interface
      function abstract_fun(x)
         integer x
         integer abstract_fun(x)
      end function abstract_fun
   end interface
end module other_fun

 program fptr
    use other_fun
    procedure(abstract_fun) :: fun
 end program fptr

! { dg-final { cleanup-modules "other_fun" } }