! { dg-do compile } | |
! { dg-additional-options "-O0 -fdump-tree-original" } | |
! PR 57992 - this was packed/unpacked unnecessarily. | |
! Original case by Tobias Burnus. | |
subroutine test | |
interface | |
function f2() | |
integer, pointer, contiguous :: f2(:) | |
end function f2 | |
end interface | |
call bar(f2()) | |
end subroutine test | |
! { dg-final { scan-tree-dump-not "_gfortran_internal_pack" "original" } } | |
! { dg-final { scan-tree-dump-not "_gfortran_internal_unpack" "original" } } |