mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
16 lines
473 B
Fortran
16 lines
473 B
Fortran
! { dg-do compile }
|
|
! { dg-additional-options "-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" } }
|