Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/transfer_array_intrinsic_4.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! { dg-options "-std=gnu" } ! Tests patch for pr27155, where character scalar string_lengths ! were not correctly translated by the array transfer intrinsic. ! ! Contributed by Bo Berggren <bo.berggren@glocalnet.net> ! program trf_test implicit none character(11) :: s1, s2 integer(4) :: ia(3) integer(1) :: ba(12) equivalence (ia, ba) s1 = 'ABCDEFGHIJK' ia = TRANSFER (s1, (/ 0_4 /)) s2 = TRANSFER(ba + 32_1, s2) if (s2 .ne. 'abcdefghijk') call abort () s1 = 'AB' ba = TRANSFER (trim (s1)//' JK' , (/ 0_1 /)) s2 = TRANSFER(ia, s2) if (trim (s1)//' JK' .ne. s2) call abort () end program trf_test