Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/array_constructor_36.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! Test the fix for PR47348, in which the substring length ! in the array constructor at line 19 would be missed and ! the length of q used instead. ! ! Contributed by Thomas Koenig <tkoenig@netcologne.de> ! program main implicit none character(len = *), parameter :: fmt='(2(A,"|"))' character(len = *), parameter :: test='xyc|aec|' integer :: i character(len = 4) :: q character(len = 8) :: buffer q = 'xy' i = 2 write (buffer, fmt) (/ trim(q), 'ae' /)//'c' if (buffer .ne. test) STOP 1 write (buffer, FMT) (/ q(1:i), 'ae' /)//'c' if (buffer .ne. test) STOP 2 end program main