! { dg-do run } | |
! PR fortran/35830 | |
! | |
function f() | |
real, allocatable :: f(:) | |
allocate(f(1:3)) | |
f(1:3)= (/9,8,7/) | |
end function | |
program test | |
implicit none | |
abstract interface | |
function ai() | |
real, allocatable :: ai(:) | |
end function | |
end interface | |
procedure(ai) :: f | |
if(any(f() /= [9,8,7])) STOP 1 | |
if(size(f()) /= 3) STOP 2 | |
end |