Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/func_assign_2.f90 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! Test the fix for PR40551 in which the assignment ! was not dealing correctly with non-contiguous lhs ! references; eg. a(1,:) ! ! Reported by by Maciej Zwierzycki ! at http://gcc.gnu.org/ml/fortran/2009-06/msg00254.html ! and by Tobias Burnus <burnus@gcc.gnu.org> on Bugzilla ! integer :: a(2,2) a = -42 a(1,:) = func() if (any (reshape (a, [4]) /= [1, -42, 2, -42])) call abort a = -42 a(2,:) = func() if (any (reshape (a, [4]) /= [-42, 1, -42, 2])) call abort a = -42 a(:,1) = func() if (any (reshape (a, [4]) /= [1, 2, -42, -42])) call abort a = -42 a(:,2) = func() if (any (reshape (a, [4]) /= [-42, -42, 1, 2])) call abort contains function func() integer :: func(2) call sub(func) end function func subroutine sub(a) integer :: a(2) a = [1,2] end subroutine end