transfer_simplify_11.f90 « gfortran.dg « testsuite « gcc - gcc.git - Linaro gcc mirror (git://gcc.gnu.org/git/gcc.git) + linaro-local branches

index : gcc.git

Linaro gcc mirror (git://gcc.gnu.org/git/gcc.git) + linaro-local branches

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/transfer_simplify_11.f90

blob: ce7a4ad5e56845d171250bffaa010453e5d14866 (plain)

! { dg-do run }
! PR Fortran/82841
!
   integer, parameter :: N = 2
   character(len=1) :: chr(N)
   chr = transfer(repeat("x",ncopies=N),[character(len=1) ::], N)
   if (chr(1) /= 'x' .and. chr(2) /= 'x') call abort
end