gcc/testsuite/gfortran.dg/coarray/substring_1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

!{ dg-do run }

! Test PR51815 is fixed
! Contributed by Bill Long  <longb ad cray dot com>

PROGRAM pr51815
   implicit none
   character(10) :: s[*]
   character(18) :: d = 'ABCDEFGHIJKLMNOPQR'
   integer       :: img

   img = this_image()
   s = d(img:img+9)
   if (img == 1 .and. s(2:4) /= 'BCD') stop 1
END PROGRAM