| ! { 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 |