36 lines
820 B
Fortran
36 lines
820 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fdump-tree-original" }
|
|
!
|
|
! Test the fix for PR43072, in which unnecessary calls to
|
|
! internal PACK/UNPACK were being generated.
|
|
!
|
|
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
|
|
!
|
|
MODULE M1
|
|
PRIVATE
|
|
REAL, PARAMETER :: c(2)=(/(i,i=1,2)/)
|
|
CONTAINS
|
|
! WAS OK
|
|
SUBROUTINE S0
|
|
real :: r
|
|
r=0
|
|
r=S2(c)
|
|
r=S2((/(real(i),i=1,2)/)) ! See comment #1 of the PR
|
|
END SUBROUTINE S0
|
|
! WAS NOT OK
|
|
SUBROUTINE S1
|
|
real :: r
|
|
r=0
|
|
r=r+S2(c)
|
|
r=r+S2((/(real(i),i=1,2)/)) ! See comment #1 of the PR
|
|
END SUBROUTINE S1
|
|
|
|
FUNCTION S2(c)
|
|
REAL, INTENT(IN) :: c(2)
|
|
s2=0
|
|
END FUNCTION S2
|
|
END MODULE M1
|
|
! { dg-final { cleanup-modules "M1" } }
|
|
! { dg-final { scan-tree-dump-times "pack" 0 "original" } }
|
|
! { dg-final { cleanup-tree-dump "original" } }
|