Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/internal_pack_11.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-fdump-tree-original" } ! ! Test the fix for PR43173, where unnecessary calls to internal_pack/unpack ! were being produced below. These references are contiguous and so do not ! need a temporary. ! ! Contributed Tobias Burnus <burnus@gcc.gnu.org> ! REAL, allocatable :: ot(:) integer :: time_steps call foo (ot) ! OK, no temporary call foo (ot(0:5:1)) ! Was an unnecessary temporary call foo (ot(0:time_steps)) ! Was an unnecessary temporary end ! { dg-final { scan-tree-dump-times "unpack" 0 "original" } }