URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [internal_pack_7.f90] - Rev 516
Compare with Previous | Blame | View Log
! { 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" } }