blob: 0bc30e508a05e8ce0c47ee0b16220799a8b74008 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
! { 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" } }
|
