Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/transpose_1.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 compile } ! Tests the fix for PR32962, in which the result of TRANSPOSE, when ! an actual argument of an elemental intrinsic would receive the ! wrong offset. ! ! Contributed by Wirawan Purwanto <wirawan0@gmail.com> ! real(kind=8), allocatable :: b(:,:) real(kind=8) :: a(2,2), c(2,2) i = 2 allocate (b(i,i)) a(1,1) = 2 a(2,1) = 3 a(1,2) = 7 a(2,2) = 11 call foo call bar if (any (c .ne. b)) call abort contains subroutine foo b = cos(transpose(a)) end subroutine subroutine bar c = transpose(a) c = cos(c) end subroutine end program