gcc/testsuite/gfortran.dg/proc_decl_15.f90

   1 ! { dg-do run }
   2 ! PR fortran/35830
   3 !
   4 function f()
   5   real, allocatable :: f(:)
   6   allocate(f(1:3))
   7   f(1:3)= (/9,8,7/)
   8 end function
   9
  10 program test
  11   implicit none
  12   abstract interface
  13     function ai()
  14       real, allocatable :: ai(:)
  15     end function
  16   end interface
  17   procedure(ai) :: f
  18   if(any(f() /= [9,8,7])) call abort()
  19   if(size(f()) /= 3) call abort()
  20 end