mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
25 lines
679 B
Fortran
25 lines
679 B
Fortran
! { dg-do compile }
|
|
! { dg-additional-options "-fdump-tree-original" }
|
|
! PR 59345 - pack/unpack was not needed here.
|
|
! Original test case by Joost VandeVondele
|
|
SUBROUTINE S1(A)
|
|
INTERFACE
|
|
FUNCTION CONTIGUOUS_F1() RESULT(res)
|
|
INTEGER :: res(5)
|
|
END FUNCTION
|
|
END INTERFACE
|
|
CALL S2(CONTIGUOUS_F1())
|
|
END SUBROUTINE
|
|
|
|
SUBROUTINE S3(A)
|
|
INTERFACE
|
|
FUNCTION CONTIGOUOS_F2() RESULT(res)
|
|
INTEGER, ALLOCATABLE :: res(:)
|
|
END FUNCTION
|
|
END INTERFACE
|
|
PROCEDURE(CONTIGOUOS_F2), POINTER :: A
|
|
CALL S2(A())
|
|
END SUBROUTINE
|
|
! { dg-final { scan-tree-dump-not "_gfortran_internal_pack" "original" } }
|
|
! { dg-final { scan-tree-dump-not "_gfortran_internal_unpack" "original" } }
|