gcc/testsuite/gfortran.dg/eoshift_8.f90

   1 ! { dg-do compile }
   2 ! PR 83664 - invalid code that used to be accepted.
   3 program main
   4   implicit none
   5   integer :: n
   6   integer :: i,n1, n2, n3
   7   character(len=3), parameter :: e(2,3,4) = reshape([(repeat(achar(i),3),i=iachar('a'),iachar('a')+2*3*4-1)], &
   8        shape(e))
   9   character(len=3), parameter :: bnd2(3,5) = reshape([(repeat(achar(i),3),i=iachar('A'),iachar('A')+3*5-1)], &
  10        shape(bnd2))
  11   character(len=3) :: f2(2,3,4)
  12
  13   n = -1
  14   f2 = eoshift(e,shift=n,boundary=bnd2) ! { dg-error "has invalid shape" }
  15   f2 = eoshift(e,shift=1,boundary="x") ! { dg-error "must be of same type and kind" }
  16
  17   print '(*(1H",A,1H",:","))',f2
  18 end program main