Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr68379-2.f @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-additional-options "-Ofast" } ! { dg-additional-options "-mavx" { target x86_64-*-* i?86-*-* } } SUBROUTINE PASSB4 (IDO,L1,CC,CH,WA1,WA2,WA3) IMPLICIT REAL(4) (A-H, O-Z) DIMENSION CC(IDO,4,L1), CH(IDO,L1,4), WA1(*), WA2(*), WA3(*) 102 DO 104 K=1,L1 DO 103 I=2,IDO,2 TI1 = CC(I,1,K)-CC(I,3,K) TI2 = CC(I,1,K)+CC(I,3,K) TI3 = CC(I,2,K)+CC(I,4,K) TR2 = CC(I-1,1,K)+CC(I-1,3,K) TI4 = CC(I-1,2,K)-CC(I-1,4,K) TR3 = CC(I-1,2,K)+CC(I-1,4,K) CH(I-1,K,1) = TR2+TR3 CH(I,K,1) = TI2+TI3 CI4 = TI1-TI4 CH(I-1,K,4) = CI4 CH(I,K,4) = CI4 103 CONTINUE 104 CONTINUE RETURN END