Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/associate_19.f03 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do run } ! ! Contributed by mrestelli@gmail.com ! Adapated by Andre Vehreschild <vehre@gcc.gnu.org> ! Test that fix for PR69296 is working. program p implicit none integer :: j, a(2,6), i(3,2) a(1,:) = (/ ( j , j=1,6) /) a(2,:) = (/ ( -10*j , j=1,6) /) i(:,1) = (/ 1 , 3 , 5 /) i(:,2) = (/ 4 , 5 , 6 /) associate( ai => a(:,i(:,1)) ) if (any(shape(ai) /= [2, 3])) STOP 1 if (any(reshape(ai, [6]) /= [1 , -10, 3, -30, 5, -50])) STOP 2 end associate end program p